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SUMMARY 


The use and operation of a group of computer programs to perform a 
flutter analysis of a single planar wing are described. This system of pro- 
grams is called FAST for Flutter Analysis System, and consists of five 
programs. Each program performs certain portions of a flutter analysis and 
can be run sequentially as a job step or individually. FAST uses natural 
vibration modes as input data and performs a conventional V-g type of 
solution. The unsteady aerodynamics programs in FAST are based on the sub- 
sonic kernel function lifting-surface theory although other aerodynamic 
programs can be used. Application of the programs is illustrated by a sample 
case of a complete flutter calculation that exercises each program. 


INTRODUCTION 

With recent advances in computer technology, computations for a 
relatively detailed aircraft flutter analysis are now practical. However, 
both computer resources and manhours used in performing such an analysis can 
be large for exploring a flight envelope or for a variety of configurations 
as might be required in design. Since the resources used can be signifi- 
cantly affected by the overall organization of the flutter analysis software, 
one approach that has been used is to divide the flutter analysis tasks among 
several programs that treat specialized portions of the flutter analysis. 

This method has several advantages. First, the programs can be run sequen- 
tially in a job-stepping mode or as individual units depending upon the 
availability of input data or the task to be performed. Second, the programs 
can be easily optimized for trade offs of central processing time and 
storage. Third, the versatility of the programs and the ability to make 
changes to the programs are enhanced. Additional complexity in the use of 
job control language is, however, a penalty for using this approach. Several 
programs have been developed for flutter analysis using the modular program 
approach and are called FAST for Flutter Analysis _Sys_tem. This paper gives a 
user's guide for each of the five programs and describes the overall 
operation to perform a flutter analysis. A sample case of a complete flutter 
analysis of a clipped delta wing, beginning with input natural vibration 
modes and concluding with V-g plots and flutter eigenvalues, is used to 
illustrate the application of the programs. 

The division of flutter analysis tasks into separate programs depends 
significantly on the type of computing system used, the type of graphics 
available, and the use made of the programs such as for design or analysis. 
The five programs presented herein have been in use at Langley Research 
Center for some time on the CDC CYBER series machines with the NOS operating 
systems and the FTN compiler. The version of FAST described here, version 
1.0, is a conversion of some earlier programs for the current computer 
operating system and compiler. 
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GENERAL DESCRIPTION 


An overview of the FAST flutter analysis procedure is given in figure 1. 
Natural vibration modes of the structure are considered to be known from 
previous calculations or measurements. The generalized aerodynamic forces 
are calculated and the flutter eigenvalues are generated to obtain the 
flutter speeds and frequencies. This procedure is performed by the sequence 
of five programs shown in figure 2 and discussed in the following paragraphs. 

The first program, MPROC, processes the vibration modes to give modal 
deflections, streamwise slopes, and certain integrals of the mode shapes 
used in calculating generalized aerodynamic forces. In addition, contour 
and oblique projection plots of the mode shapes can be generated. The input 
requires wing geometry, vibration modes, and plotting information and is thus 
independent of aerodynamic variables such as Mach number and aerodynamic 
density. The modal file output from MPROC is TAPE2 and is renamed MODEF 
for input to the generalized aerodynamic force program, GENFLU. Normally 
MPROC is run as a separate job to permit inspection of the modal plots prior 
to further calculations, and TAPE2 is saved for subsequent use. The user's 
guide for MPROC is given in Appendix A. 

Program SUBCMAT generates the complex matrix elements used in solving 
the subsonic downwash integral equation by a method similar to that of 
reference 2. SUBCMAT requires only a small amount of central memory but can 
require a significant amount of central processing time for execution. The 
input for SUBCMAT includes the Mach number and reduced frequency specifica- 
tions, and the same wing geometry specification as MPROC. Normally the 
execution of SUBCMAT is followed by LUCMAT which can be a large field length, 
short execution time program. ’ The user's guide for SUBCMAT is given 
in Appendix R, _ _ . 

Program LUCMAT performs an L-U decomposition of the complex matrices 
generated by SUBCMAT. The L-U decomposition is based on the method presented 
in chapter 1/7 of reference 3. Normally, LUCMAT is run as a job-step with 
SUBCMAT and file LUF saved as a permanent file if flutter calculations are to 
be made for several sets of vibration modes for the same aerodynamic configu- 
ration (such as during a design process or for different fuel conditions) . 
Since neither SUBCMAT nor LUCMAT require any modal information, these two 
programs can be executed before the vibration modes have been measured or 
computed. Because file LUF can be large and can overflow nominal permanent 
file space allocation in some instances, saving LUF may require the use of 
tape. APPENDIX C is the user's guide for LUCMAT. 

Program GENFLU calculates the generalized aerodynamic forces using the 
modal output from MPROC and the L-U matrices output by LUCMAT. The output 
of GENFLU depends both on Mach number and vibration mode data but is inde- 
pendent of air density. File GENFLU normally is saved as a permanent file to 
permit reentry to the flutter eigenvalue program for various densities or 
plotting scales. APPENDIX D gives the user's guide for GENFLU. 
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The last of the programs in this group is the parametric flutter analysis 
program called FLUTDET. The capabilities and techniques used in FLUTDET are 
described in reference 4 (with th.e exception that a different spline technique 
is used exclusively for interpolating the generalized aerodynamic forces) . 
Program FLUTDET reads the generalized aerodynamic forces from file GENF, and 
reads the other information required to perform a flutter analysis from the 
INPUT file. Required on INPUT are the generalized masses, modal frequencies, 
and air density information. The flutter speeds and frequencies are printed 
on the OUTPUT file, and V-g plots are generated. The user's guide is given in 
APPENDIX E. 

Each program has been set up in absolute binary form and is normally kept 
as a semi-private, indirect-access permanent file (on cluster 1 in the LRC 
system). The programs can be obtained by the following instructions. 

GET , MPROC/UN=05206 IN ,PW=MPROC VI . 

GET , SUBCMAT/UN=05206lN,PW=SBCMm . 

GET , LUCMAT/UN=05206 IN ,PW=LUCMTVl . 

GET , GENFLU/UN=05206 IN ,PW=GNFLUVl . 

GET , FLUTDET/ UN= 05 20 61N , P W=FLTDTV 1 . 

In addition, the absolute programs are kept on tape NA0818. In the event the 
programs cannot be obtained from the above instructions, they can be accessed 
by using the control card 

LABEL , T1 ,NT , D= 1 600 ,PO=R ,VSN=NA0818 . 

and performing a COPYBF,Tl,BPROG. for each program. The five files on the 
tape are MPROC, SUBCMAT, LUCMAT, GENFLU, and FLUTDET and are in the order 
named. 


The input data for the sample case are also kept as indirect access perma- 
nent files (cluster 1) and can be accessed as follows : 


GET , INMPROC/ UN=05206 IN . 
GET , HDHFOC/UN=05206 IN . 
GET ,INSBCMT/UN=052061N. 
GET , INFLTDT/UN=052061N. 


- Input for MPROC 

- Tape 2 of MPROC and MODEF for GENFLU 

- Input for SUBCMAT 

- Input for FLUTDET 


The coded files for the above data sets and for the source decks are also 
maintained in card image form on tape NC0302, They can be accessed with the 
control card. 


LABEL , T2 ,NT ,D=1600 ,P0=R,VSN=NC0302 . 
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and obtained by 

COPYBF , T2 , CODEDF . 

The location of each coded file on the tape is 


INMPROC 

File 

1 

MPROC 

File 

2 

HDHFQC 

File 

3 

INSBCMT 

File 

4 

SUBCMAT 

File 

5 

LUCMAT 

File 

7 

GENFLU 

File 

9 ' 

INFLTDT 

File 

11 

FLUTDET 

File 

12 


Further information on the use of these files is given in the user's guides in 
the Appendices. 
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APPENDIX A 


SURFACE SPLINE MODE PROCESSING PROGRAM, MPROC 

Program MPROC interpolates input vibration mode shapes, generates 
contour and orthographic plots of the mode shapes, and calculates the slopes, 
deflections, and weighted integrals of the mode shapes for use in the 
unsteady aerodynamics programs. This version of the mode processing program 
is designed to interface with the current version of the subsonic kernel 
function generalized force program GENFLU. The program is dimensioned for 
12 pressure functions in each of the chordwise or spanwise directions for a 
total of 144 collocation points maximum for calculating input to the 
generalized force program. 

The spline matrix generation overlay is set up for dynamic storage for 
up to 250 modal (x and y) input points (nearly machine capacity) . The 
storage required for the spline matrix is calculated, and the program field 
length is set from within the program. The field length used is given in a 
DAYFILE message. For a case of 69 modal input data points, the program 
requires 34,300g words of central memory. The computing time depends 

strongly on the type of contour plots generated and, in particular, on the 
GRID parameter for plotted contours. 

The absolute binary program is stored on the permanent file system as 
an indirect access* semiprivate file named MPROC (the overlay file name). 
Access to MPROC is obtained by the control card 

GET , MPROC /UN=0 5 2 0 6 IN , PW=MPR0C VI . 

The files declared by the program are (in order) INPUT, OUTPUT, TAPE1 , TAPE2 . 

The plots generated by MPROC for the sample case are presented in 
figure 3. 
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Control Deck 


A typical BATCH processing control deck is 

MODEPRC,T2000,CM60000. BLDG648 YOUR NAME 

USER, . . . (your user number/your password) 

CHARGE, . . . (your account number, LRO 
GET,MPROC/UN=052061N,PW=MPROCV1. 

MPROC. 

SAVE , TAPE2=STPE2 . (save TAPE2 as permanent 

REWIND , TAPE2 . file named STPE2, 

COPYSBF , TAPE2 . 

DISPOSE, TAPE2=P9. (if punch cards desired) 

ATTACH, PLOT/UN=LIBRARY . 

PLOT,VARIAN (for Varian plots) 

EXIT . 

REWIND, TAPE2. (or other desired error processing) 

COPYSBF , TAPE2 . 

DISPOSE, TAPE2=P9. 

ATTACH , PLOT /UN=LIBRARY 
PLOT. VARIAN 
— eor — 

INPUT DATA 
— eoi — 


Data Setup 

All input x,y quantities must be in consistent units (dimensional or 
dimensionless) and must be referenced to the same x,y coordinate system. 
The x-axis of the coordinate system must point downstream. 
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The detailed contents of the input cards are listed below: 




No . of 

See 

Contents 

Format 

Cards 

Note 

ID 

(8A10) 

1 


XLR, XTR, XLT, XTT 

(4E20.12) 

1 


YROOT, YTIP ,NL, NT 

(2E20.12,214) 

1 


(YL(I),XL(I),I=1,NL) 

(2E20.12) 

NL 

(1) 

(YT (I), XT (I), 1=1, NT) 

(2E20.12) 

NT 

(2) 

MS,NC,LP,LSYM 

(414) 

1 


IN 

(8A10) 

1 

(3) 

(XP(L),YP(L),L=1,LP) 

IN 

"D" 

(3) 

NI, ISYM, ISAVE 

(314) 

1 


IN 

(8A10) 

1 


(XI(I) ,YI(I) ,I=1,NI) 

IN 

"D" 


CMIN , CINT, NCON, GRID , PAPER, HN , SPACE 

(2F10 . 2 , 110 ,4F10 . 2) 

1 


MODES 

(14) 

1 


IN 

(8A10) 

1 


MODE 

(14) 

1 


ZN, (ZI(I) ,I=1,NI) 

IN 

"D" 


MODE 

(14) 

1 


ZN, (ZI(I) , 1=1, NI) 

IN 

"D" 



for all data sets where a user-furnished format "IN" is used, the number of 
cards depends on both the loop delimiter (LP or NI) and the format. This 
situation is indicated by "D" in the number of cards column. 

NOTES : 

(1) Omit this card set if NL = 0 

(2) Omit this card set if NT = 0 

(3) Omit this card set if LP = 0 

The definitions of the input variable names are: 

ID case identification card 

XLR x coordinate of leading edge at root 

XTR x coordinate of trailing edge at root 

XLT x coordinate of leading edge at tip 

XTT x coordinate of trailing edge at tip 

YROOT y coordinate of root 

YTIP y coordinate of tip 

NL number of discontinuities on leading edge 
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NT 

YL, XL 
YT, XT 


MS 

NC 

LP 


LSYM 


IN 


XP 

YP 

NI 

ISYM 


ISAVE 


number of discontinuities on trailing edge 

location of leading edge discontinuities 

location of trailing edge discontinuities 

The quantity y must appear before x on the YL, XL 
or YT, XT cards. These cards must appear in the order 
of increasing y. 

number of spanwise varying pressure functions 
number of chordwise varying pressure functions 
number of downwash collocation points 

If LP = 0, the program will compute downwash collocation 
points at MS by NC Gaussian stations. 

load symmetry 

If LSYM = 1, force quadrature coefficients are computed 
for antisymmetric loading. 

If LSYM = 2, they are computed for symmetric loading 

the variable format to be used to read the real numbers 
that follow the format card 

Any real format that can be expressed in 80 characters 
(left adjusted) or less can be used. Be sure to include 
the format-delimiting parentheses. These cards are used 
to specify formats for (XP, YP), (XI, YI) , and (ZN, ZI) . 

A different format can be used each time. 

x coordinates of collocation points 

y coordinates of collocation points 

number of modal deflection input points 

interpolation symmetry parameter 
ISYM = 1 antisymmetric spline 

ISYM = 2 symmetric spline 

ISYM = 3 nonsymmetric spline 

if zero or blank, the program generates TAPE1 containing 
the inverted spline matrix. Otherwise the user must 
furnish TAPE1. It is a single binary file and depends 
only on NI, ISYM, and (XI (I), YI(I), 1=1, NI) . For a 
large case (NI>100) , TAPE1 should be computed only for 
first set of modes with the same definition points. 
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XI 

YI 

CMIN 

CINT 

NCON 


GRID 

PAPER 

HN 

SPACE 

MODES 

MODE 

ZN 

ZI 

Limits 

NL 

NT 

MS 

NC 

LP 


x coordinates of modal definition points 
y coordinates of modal definition points 
minimum contour in normalized z-units 
contour interval in normalized z-units 

number of contours (i.e., CMAX = CMIN + (NCON-1) * CINT) 
If NCON > 0, both line printer and plotter contour plots 
will be generated. 

If NCON = 0, no contour plots will be generated. 

If NCON < 0, only line printer contour plots will be 
generated. 

grid size (0.2 to 0.6 usually), in plotter inches 

length of semispan on paper, in plotter inches 

height of numbers, in plotter inches 

frame advance in addition to that generated by NFRAME 
If 0, program will compute SPACE, in plotter inches. 

the number of modes to be processed 

an integer designator for the mode (used only to label 
the plot) 

the normalization value of z 

All the ZI (I) will be divided by ZN in the program. 
For unnormalized inodes, set ZN to 1.0 

the modal deflection z 

ZI(I) is the deflection at (XI (I) , YI(I)). 

Program Limits 

on the various integer input quantities are listed below. 

0 through 20 

0 through 20 

1 through 12 
1 through 12 

0 through 144 (if 0 program computes MS by NC) 
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LSYM 

any integer 

If not 1, LSYM is set to 2. 

NI 

3 through 250 

Can be raised to 300 by program modification. 

ISYM 

2 or 3 

However, other interpolation schemes may be added later. 

ISAVE 

any integer (usually blank) 

NCON 

1 through 180 

MODES 

1 through 1Q00 

Note that CPU time is proportional to MODES. 

MODE 

no limit 

If more than three digits, it will overflow the format 
on the plot. 


All Input quantities are FORTRAN BCD (no NAMELIST or binary information) , 


Thus 

1. Blanks are read as zero. 

2. Integers must be right adjusted in their fields. 

3. Exponents on real number are optional and if used must be right 
adjusted. 

4. The nonexponent part of real numbers may be placed anywhere in 
the field if the decimal point is punched on the card. 

5. Slashes and unlimited group delimiting parentheses can be used 
if all of the cards to be read by format IN are not configured 
the same (For example, suppose that ZN is to be read from a card 
by itself in format F4.2 and that (ZI(I), 1=1, NI) are to be 
read six numbers per card in format 6F10.6. Then IN should be 
punched on the card, left adjusted, as (F4.2/(6F10.6)). 


Program Output 
Four output files are used: 

OUTPUT contains ID card printing and line printer version of 

contour plot 

SAVPLT contains plot vector file defined by PSEUDO 

It can be saved or post processed. 
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TAPE2 


TAPE1 


contains input for subsonic kernel program GENFLU 

It should be routed to the BCD punch or saved as a permanent 

file. It can be copied to output by 

REWIND, TAPE2. 

C0PYSBF,TAPE2. 

contains interpolation save matrix 

Usually ignored by the user, but it can be saved as a 
permanent file or rewound and copied onto a save tape if 
many inodes with the same (x,y) values are to be processed 
at different times. 
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Listing of Sample INPUT Data 


HEA3U8E.0 *0i)E3 rCH FI. J T 1 68 3l3f»P»ES3XUN WlhG - rt£A8UREl> AHPLJTu[>b3 

0,00 69,81 60,59 69,81 

0,00 30,00 


4 6 

69 2 

C6F6.2) 


4,16 

0,00 

10.90 

0,00 

17,63 

0,00 

28,35 

0,00 

31,00 

o ,<)0 

37,80 

0,00 

84,52 

0,00 

51 .25 

0,00 

57,97 

0,00 

10,81 

6.03 

17.28 

6,u3 

28,07 

6,03 

30,91 

6,03 

38,36 

6.03 

85,01 

6.03 

52,68 

6.03 

59,87 

6,03 

66,30 

6,03 


23.88 17. fj 29,15 17.73 39,82 17.73 

39.70 17.73 85,85 17.73 51,20 17,73 

58, <17 1 /.7 3 81 ,78 17.73 87,01 17,73 
38,1b 28.80 80,01 38,40 U3.86 28,80 

87.71 28,80 51,91 28,80 58,11 28,80 
59,98 28,80 83,81 28,80 87,68 28,80 

86.55 37.42 89.20 37.82 51.84 37.82 

58.89 i/,42 57,38 37,82 bO,27 37,82 
62,91 37,82 65.56 37,42 88,21 37,42 
54,83 84.2? 56,17 44,27 37,90 44,27 

59, ba 84,27 81 ,53 84. g 7 63,82 88,27 
85,15 88,27 66,89 88, g? 68,82 84.27 
39,36 88,55 60,53 88,55 61,89 88,55 
62,85 80,55 68,12 80,55 85,39 88,55 

66.55 80.55 67,72 84,53 88,88 88,55 
67,29 22,38 62,88 22.58 57,98 22,38 
66,65 11,88 60,52 11.84 58,41 11,48 

-2.no 0,10 101 0,25 6,00 0,10 5,00 

9 

(F3/(7F10) ) 

1 

l. 


o.ooooono 

0,0000000 

0,0000000 

0,0000000 

0,0000000 

0,0000000 

0,0000000 

O.OOOQOfJU 

0,0000000 

.0092677 

,0084530 

,0126206 

,0163968 

,0213871 

,0270903 

,0358815 

,0367655 

,0525512 

,0388023 

,0581807 

,0713959 

.0916627 

,1181664 

,1403802 

,1672268 

,1903852 

,2393319 

,1777167 

,2131502 

,2397393 

,2o9S79« 

,3019636 

,3880269 

,3868956 

,8207189 

.8386007 

,4372136 

,8457604 

,4083309 

,5285952 

,5590182 

,3920155 

,6181892 

,6557698 

,7031266 

,7021002 

,7320501 

,7500768 

,7783151 

,6088326 

,0327732 

.8566083 

,8818543 

,9119055 

,9405235 

,9394032 

,9659883 

,9931765 

1 ,0218609 

1.0189710 

1,0390060 

1,0812866 

1 .073632B 

,3282812 

,2832268 

,2891923 

,1263676 

,0945106 

,0639189 






2 

1 • 

0.0000000 0 
0,0000000 0 
-,0005168 . 

,0326206 

,1251857 
-.0357858 
,3286809 
,8638084 
,95048511 
-.1185569 - 
3 

i . 

0,0000000 o 

0. 0000000 o 
-,0338908 - 
-.1891372 - 
- , 4083930 - 

,1801095 • 
.228651 « 
.518U-3 
,82891. 2 
, 2 UH 4 1 J 3 
tt 

1. 

0,0000000 0 
0,0000000 0 
-.0107344 » 
-.1089277 - 
-,2351009 - 
-.0338400 *> 
.1510441 
,5053379 
,8730b«3 

-,040884b * 

5 

1 • 

0,0000000 0 
0,0000000 0 
,1051907 
,0434526 
«, 2263075 - 
,0098309 - 
-.0263435 
,2475423 
,7502949 
■.0057019 

6 

1 • 

0,0000000 0 
0.0000000 0 
.0368396 
-.0631948 
-,5317025 * 
,3097940»1 
.0907493 
,0919443 
,3817208 
-.0738462 


original page is 

0F POOR QUALITY 


,0000000 

,0000000 

,0096496 

,0173115 

,1134940 

,3053420 

,3450036 

.7066727 

,'9740327 

,0906872 


,0000000 

.0000000 

,0453824 

.1589463 

,3583753 

,3651029 

.3461595 

,6187657 

,9075033 

,0330747 


,0000000 
,0000000 
,0038714 
, Q9B7 799 
,2085875 
,1958588 
.2867128 
,5818999 
,9188309 
,0678085 


,0000000 

,0000000 

,1464805 

,0845458 

,1930790 

,5841526 

,1018384 

,3928431 

,8779001 

,0438439 


,0000000 

,0000000 

,0586953 

,0485027 

,3907634 

,1710932 

,3385351 

,3643389 

,7393614 

,1480368 


(1,0000000 

,0074285 

-.0257735 

-,0034861 

.1032233 

,3035980 

,3523088 

.7216588 

,9996708 

-.0364318 


0,0000000 

-.0005920 

*,0695575 

-.1676780 

-.3008732 

-.2770460 

.4632233 

.7100784 

t-,0001480 

-.1133639 


0.0000000 

-.0025809 

,0865134 

-.0844087 

-,1859456 

-.1492257 

,2924097 

,6430080 

.9931370 

-.0941459 


0,0000000 

,0100275 

,1372945 

,1215100 

-.1626032 

-.3114039 

.2141178 

,5300626 

1.0222179 

,0666502 


0,0000000 
0163785 
.0504710 
,1614649 
•.8581892 
», 9743536 
,5956699 
,6225221 
1.0035830 
,2406861 


0,0000000 

,0089767 

-.0532911 

-.0406950 

,0644907 

,3068277 

,6057102 

,7241760 

1,0092371 

-,1089723 


0,0000000 

-,0068797 

■,1361758 

•,1435548 

*,2252479 

-.1913571 

.1022643 

,7984313 

1.0742933 

-,2606166 


O.OOJOOOO 
-.0072149 
,0810652 
•.0524402 
-.1556781 
-.0997184 
.2019592 
.7066318 
1 ,0593378 
,2099366 


0,0000000 
,0092411 
,1268167 
,1376327 
-, 1165946 
•.4431773 
•,3273692 
,6604404 
1.1690916 
•,0766473 


0,0000000 

•,0252355 

,0144803 

,2350626 

•.1014340 

■,8074652 

•,9481934 

,8690826 

1,2725292 

•,0316431 


0,0000000 

,0096247 

,0434726 

•,0938570 

,0597507 

,3120599 

,6186939 

,7482721 

1.0343001 

-.0620761 


0,0000000 

-.0155394 

-.1513985 

•,0913127 

-.1354151 

•,0945666 

.2068966 

,8856961 

1,176629b 

•,1513985 


0,0000000 
«, 0U2623 
o. 094026b 
-,005bil2 
-,1243894 
-.0427030 
,2673387 
,7690638 
1 s 1141483 
,0553490 


0,0000000 

.0164821 

-.0228077 

,1069603 

•.0741230 

-.3468344 

-,1816752 

,8094770 

1.3191113 

,1173810 


0,0000000 

-.0233376 

•,2291579 

,2085616 

,0403487 

•,6047376 

■,6959792 

1,1313089 

1,5166002 

,1203430 


0,0000000 

,0065912 

,0456043 

■,160002b 

,0317809 

,3186487 

,6416252 

,9153155 

1,0330753 

-.0252368 


0,0000000 
<*,0236791 
*,1761137 
-,0118396 
a, 0369226 
.0180554 
.3066430 
,6738197 
1,2353115 
*, 1047802 


0. 0000000 
-.0144296 
*,1050563 
,0483341 
*,0943219 
,0245190 
,3396293 
,742961 1 
1.1466446 
-.0177713 


0,0000000 
,0340149 
-,0114039 
,0564294 
-,0446323 
-, 2363350 
*,0487613 
,4976406 
1,4410145 
,1655525 


0,0000000 

•,0144805 

*,2031400 

,1179530 

,1424856 

*,3731899 

•,4394067 

,0659356 

1,7259947 

,1447350 


0,0000000 

,0048446 

,0410180 

,1297074 

0,0000000 

,3261417 

,6694658 

,9365674 

1,0403075 


0,0000000 
-.0269350 
-.1870653 
-,4247447 
,0664496 
,1311233 
,4095013 
,7473731 
1 ,2942134 


0,0000000 

*,0126115 

-.1116847 

*,2443102 

-.0652663 

,0903910 

,4289066 

,7972783 

1,2120483 


0,0000000 
,0648840 
,0137635 
-.2335824 
-,0165159 
-,1289815 
,0941601 
,6114625 
1 ,5644908 


0,0000000 
,0095600 
-,1508506 
*,6103613 
,2293688 
-,1275130 
*,1900042 
,2922 114 
1,9569099 
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7 


1. 

0. 0000000 

0, 0000000 

,0896078 
. 1 415201 
.1939619 
'*,2092784 
-.2961148 
.1679595 
,0912548 
.0363451 
6 

1 • 

0.0000000 
0.0000000 
,0340327 
,2132394 
,3616103 
-.4086939 
-, 39893V' 
.1872302 
.9554091 
,0560183 
9 

1. 

0,0000000 
0,0000000 
-.0033145 
.2014030 
,1683408 
,2756873 
-.H91265 
-.1177617 
.5117957 
, 0 1 BS22 1 


0,0000000 
0,0000000 
,0279326- 
,0997651 
,1148966 
», 0241451 
*,3047088 
,2091846 
,9072435 
*,0089308 


0,0000000 

0.0000000 

,0250979 

,1339223 

,2425459 

,2629254 

-,4809756 

,1575143 

,9399438 

*,0396547 


0,0000000 

0,0000000 

*,0473777 

,0980698 

,1085982 

*,6092606 

,0491324 

,1132774 

,764671b 

,0302203 


0,0000000 

,0225063 

,0241615 

,0604902 

,0410066 

•*,0724353 

-.3529990 

,2336939 

1.0022579 

-.0231254 


O.OOOOOOO 
.0335308 
, U 177693 
,0555165 
.1237828 
,1570123 
61U7820 
,1'246671 
.9983937 
« ,0683666 


0,0000000 
.0415286 
«, 0632521 
-.0019497 
,0506921 
-.5829596 
,1877559 
,3293040 
1.0138429 
,0356744 


0,0000000 

,0310281 

.0205761 

,0393678 

*,0392949 

-.1236753 

,0207218 

.2655960 

1,0334979 

,0033504 


0,0000000 
.0490915 
,0068345 
,0078305 
*,0107419 
,0499950 
,2369240 
.0963759 
1 .0309206 
,0172673 


0,0000000 
,063560} 
*, 0646169 
-.0877364 
,0374342 
-.5361,166 
-.9631507 
,5453305 
1,2895301 
,0155976 


0,0000000 
,0363087 
, 1 93S249 
,0385666 
*,1107105 
-,1663571 
,0573218 
,3038348 
1,1454168 
,0343785 


0.0000000 

,0571228 

,3228592 

.0063247 

-.1349262 

-.0564200 

,2231704 

,0719607 

1,0638490 

,0260014 


0,0000000 

,0719438 

,3893547 

-.1395984 

,07T0131 

-,4663677 

-.7611620 

,7714954 

1,5260285 

-.1197114 


0,0000000 

,0395863 

,1947267 

,0564842 

-.,.169671,1 

-.2123530 

,0957792 

,6976947 

1,1991333 

,0443935 


0,0000000 

,0607369 

,3187431 

,0397550 

*,2326072 

*,1732758 

,2103202 

,8667804 

1,0730850 

,0365425 


0,0000000 
,0668746 
,35.62098 
*.1991647 
,1279002 
*,3597192 
*,566.7771 
,0372392 
1 ,7907974 
*,0933905 


0,0000000 

,0334681 

,1733494 

,2656324 

-.2286518 

-,2553990 

,1301941 

,7683455 

1,2538694 


0,0000000 

,0475656 

,2795904 

,4651139 

-.3252685 

-,2935448 

,1949603 

,8956932 

1,0940669 


0,0000000 

,0360694 

,2879704 

,2940144 

,1963546 

*,2357185 

*,3589394 

,2497563 

2,0017547 
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Listing of Sample OUTPUT (1st Mode Only) 


MEA3URED modes POH FLUTTER SUPPRESSION PINS - MEASURED AMPLITUDES 


LINE PLOT GENERATED BY SUBROUTINE CONTOUR KITH PARAMETERS LISTED SELO* 

XMIN XMAX YMIN YMAX CHIN CInT NC GRID HJ LUN CA) 

- 1,000000 1,000000 0,000000 1,440715 - 2,000000 ,100000 181 ,060030 6 


1 

X 

T 

TT 

TTT 

TTTTT 

TTTTTT 

TTTTUUUU 

UUUUUUUUU 

UUUUUUUUUU 

UUUUUUUUUUUU 

UUUUUUUUUUUUU 

uuuuuuuuuuuuuu 

UUUUUUUUUUUUUUUU 

uuuuuuuuuuuuuuuuu 

UUUUUUUUUUUUUUUU uuu 

UUUUUUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUU 

UUUUUU UUUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUIJUUU 

uuuuuuuuuuuuuu uuuuuuuuuuuuu 
uuouuuuuuuuuuuuuuuuuuuuuuuuu 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUU UUUUUUUUUUUUU UUUUUUUUUUUU 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUUUUUUUU UUUUUU UUUUUUUUUUUUUUUU 
uuuuuuuuuuuuuu uuuuuuuuuuuuuuuuuuuuu 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUUUUUuUUUUUUUUUUUUUUUt/UUUUUUUUUUUU 
UUUUUUUUUUUUUUUUUUUUUUUUUUDUUUUUUUUUUUU 
UUUUUU UUUUUUUUU UUUUUUUUUUUU UUUUUUUUUUUUUU 
UUUUU UUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUULIH1I I' 

UUU UUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUU UU 
UUUUUU UUUUUUUUUUUUUUUUUUUUUuUUUUUUU'JUUU UUUUUU 
UUUUUUUUUUUUUUUUUUUUUOUUUUUUUUUUUIJUUIJUUUUUUUUU 
t- 1 UUUUUU UUUUUUUUUUUUUUUUUUUUUUUU UUUUUUUUU U'll’ UUUUU 
01 UUUUU UU'JUUU UUU UUllUUuUl’UUUUUUUUUUUUUiiUUUUIIUUU UUUUU 
UUUUUUUUUUUUUUUU UUUUU'JUUUUUUUbUUUUUUU UUUUUU L'UUUULU 



-»52V7E-02 
-.ootoE-oa 
-,as03E«=02 
-,16?5E»0a 
-.4994E-Q3 
,66636-03 
.1740E-02 
, 279QE-08 
,43486-02 
,5504E-0S 
«,b6B7E«oa 
,65066-02 
, V677E-02 
, 1 132E-0 1 
, 1223E-01 
,13016*01 
, 14S3E-01 
, 1502E-O1 
, 1S7 16-01 
,17136-01 
,17876-01 
,1S46E-D1 
, 20316-01 
,21216*01 
,23146-01 
,24216-01 
■ 2S37E-0 1 
, 27836-01 
,29276-01 
,32346-01 
,34242-01 
.3639E-01 
,4088E-01 
.4396E-C1 
.47S1E-01 
.5409E-01 
, 5846E-01 



UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUULIUUUUUUUUUUUUUUUUUUUIJUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUtJUUUUUUUULlUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUIJUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUOUUUUUUUUUUUUUUU 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVV 

uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvv 

UUWUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUOLjUUUUUUUUUU VWVVVV 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUlJUUUUUUUUUUUUUUUUgUVVV VVVVV 
UUUUUUUUUUUUUUUUUUUUUUUUKUUUUUUUUULtULHJUUUUUUUUUUUUUUUUUVV W VV VV VV 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUtJUUUUUUUUUUUUUUUUVVVVVVVVVVVVV 
UUUUUUUUUUUUUUDUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVVVVVVVVVVVV 
UUUUUUUUUUUUUUUIHJUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVV vwvvvv vvvvv 
UUUUUUUUUUUUUUUUtJUUUUUUUUUUUUUUUUUUULIUUUUUUUUUUUUUUVVVVVVVV VV VWVWVVVV 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUliUVVVV VVVVV WWW vvvvv vw 
uuuuuuuuuouuuuuuuuuuuouuuuuuuuuuuuuuuuuuuuuuuuuuuv WVVVVVV wv VV VV VVVVVWWWM 
UUUUUUUUUUUUUUUUUULUiUUUUUUUUUUUUUUUUUUUUUUUUUUUUV VVVVV V VWVVVV V VWVVVNWWWww 
UUUUUUUUUUUUUUUUUUUlHJUUUUUUUUUUUUUUUULlUUUllUliUllUV VVVVV VVVVV V V VVVVV VVVWWWWWKWW 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVVVVVVVVVVVVVVVVVVWWWWWWWWWtfW 

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVV VVWV VWVVVV VVVVV WnWWWWuhnrtHHWH 
UUUUUUUUUUUUUUUIUJUUUUUUIJUUUUUUUUUUUUUUUUUUUUVV WW WVV VVVVV V WV VVWWWWWWWWWWWHHWW 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUULMJUVVVVVVVWV VVVVV WVVWVWHWWWWWWWHWHWkXXK 
UUUUUUUUUUUUUUUUUUUUUUtJUUUUUUUUUUUUUUUUUUUV WV W VVVVV VV V VVVVVVVVWWWHWWWWWWWWWWXXXXX 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU W WWW VVVVV V VVVVV WWWWWHWWWWWWWWWXXXXXXXX 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUtiUUVV WVWWWVW WVVVVVWWWWWWNWNWWWWWWXKXXXXXXX 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVWWVWVVWVVVWVVWWWwWWHtaWWHWwuXXXXXXXXXXX 
UULHJUUUUUUUUUUUUUUUUUUUUUUUUyUULllJUUUUUU WVVVVW VV VV VV VVWVVVVWWwwWWWHHhWWWWXXXXXXKXXXXX w 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVW VWVVVV VVVVV VW VVWNKWWWWWWWWWWWWXXXXSXXXXXSXYYY 
UUUUUUUUyUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWVV WWW WVV WVVVVVWWWWWWWWWWWWWWWXXXXXXXKXXXXYYYYY 
ULHJUUUUUUUUUUUUUUUUUUUljyUUUUUUUUUUUUUVVV VWVVVV WWW vwvvwwwwhwwwhwwwwwwxxxxxxxxxxxxxyyyyyyy 

UUUUUUUUUUUULtUUUUUUUUUUUUUUUUUUUUUUUUV WVV VV VVVVV WVVVVVVVWWWWWWWNWWWWWWWXXXXXXXXXXXXYYYYYYYVY 
UUUUyUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWVVWVWV VWVVVV WVVWWWWWWWWWWWHWWWXXXXXXXXXKXXXYYVYYYYYYYZ 
ItUUUUUUUUULIUUUUUUUUUUUUUUUUUUUUUUUUVV VVVVV VVVVV WVV WVV VWWWWWWWWWWtfWWWWXXXXXXXXXXXXXYYYYYYYYYYYZZ 

UUUUUUUUUUUUUUUUUUUUUUUUUUtfUUUUUUUUVVWWW WVW VVVVV WfthWV.w...'iW**w*WHWXXXXXXXXX)<XXXYYYYYYYWYYZZZZ 
UUUUUUUyUULIUUUUUUUUUUUUUUljUIJUUyUUUVVV WVV W w WVV VVVVVVwhWlnWWwwwwwwwWWXXXXXXXXXXXXY YYYYYYYYYYYZZZZZZ 
uuyuuuguuuuuuuuuuuuyuuuuuuuuuuuuuuvvvwwwvv VVVVV VVVVKiVtKWWMWwhWWWkHWXXXXXXXXXXXXYYYYYYVYYYYZZZZZZZZZ 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVWW WWVVVV VVVVWWKWWWhWWWWHWKWXXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZZO 
UUUUUUUUUUUUUIJUUUUUUUUUUUUWUUUOUWVVW WV WVVVVVVVVVWrtWWWwWWWy'WlvWWWXXXXXXXXXX.XXYYYYY YYYYY YZZZZZZZZZZOOOO 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV WVV WVV WVVVVWVVWWNWWNhwWWWwwWXXXXXXXXXXXXXYY YYYYYY YYZZZZZZZZZZOOQOOO 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV WVV VV VV WWVVVVWWWHWWWWkwWWWWWWXXXXXXXXXXXXYY VYY Y YYYYZZZZZZZZZZOOOOOOOOO 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUV WVV VVVVV WWW VVVWWWWWWWWWWWWWWWXXXXXXXXXXXXYY YYYYY YYYZZZZZZZZZZZOOOOOOOOi 1 
UUUUUUUUUUUUUUUUUIIUUUUUUUUUUUUUWV WVV VVVVV WVV VVWWWWwwwnwwWWwWwXXXXXXXXXXXXYYYYYV YYY YZZZZZZZZZ ZZOOOOOOOO l l 1 1 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWVV W WVVVVW WVVHWW WWW WKWWHWWH WXXXXXXXXXXXXYY YYYYY YYYYZZZZZZ ZZZZ 000 00 00 01 1 U 11 i 
UUOUUUUUUUUUUUUUUUUUUUUUUUUUUUVV w W WVV WVV VVVVWWWWWWWWKWWWWWXXXXXXXXXXXXYYY YYY VYY YYZZZZZZZZZZOOOOUOOOOi 1111122 
UUUUUUUUUUUUUUUUUOUUUUUUUUUUUUVVVWVVVVVVVVVVVVWwWwWWWwwwwwwwXXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZZOOOOOOOOOli 1 1 1 11222 
UUUUUUUUUUUUUUUUUUUUUUUUUl/UUUUVV WVV WVVVVVWWWWWhhWWWwwViWWXXXXXXXXXXXXYYYYrYYYrtYZZZZZZZZZZOOOOOOOOOIl 1 11 11222222 
UUUUUUUUUUUUUUUUUyuuUUUUUUUUUVWVVVVVVWVVVVVVWWhWhwwwwwwwwWXXXXXXXXXXXYY YYYY YYYYYZZZZZZZZZZOOOOOOOUOOl 1 1 1 1 112222233 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVVVVVVVVWVVVVWWWWWWWWWWWWWXXXXXXXXXXXYYYYYYYYYYYYZZZZZZZZZZOOCIOOOOOOI till l 12222223333 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVVVVV VV VV VV VV V VWWW Vi nr ,JXXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZZQ000000001llllll222222233333 

UUUUUUUUUUUUUUUUUUUUUUlJOUUUUVVWVVVVVVVVVVVVVWWWw^KWnWrt^WXXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZZOOOOOOOOO'ill til 1 1 2222223333333 
UUUUUUUUUUUUUUOUUUUUUliUUUUUUVVVVYVVVVVVVWVVWWWWWwwWr/WWWWXXXXXXXXXXX YYYYY YW Y Y YZZZZ ZZZZZZOOOOOOOOO 1 1 1 1 1 1* 12222222 3333330 
UUUUUUUUUUUUUUUUUUyUUUUUUUUUVVVVVVVVVWVVWxWWWWWNWWWWWHXXXXXXXXXXXYYYYYYYYYYYYZZZZZZZZZZOOOOOOQOOimil 1222222233333344 
UUUUUUUUUUUUUUUUUUUUUUIJUUUUVV VVVVV WVV WVWWwwwwwWwwwwhXXXXXX XXXXXXYYYYYYYYY YYZZZZZZZZZZOOOOOOOOOl 1 1 1 1 1 1 1222222333333444 
UUUUUUUUUUUUuUUUUUUUUUUUUuUVVWV VWVVVV VVV wkWWWWWwwwWwwXXXXXXXXXXXYYYYYYY Y YYYZZZZZZZZZZOOOOOOOOO 1 11111112222223333334444 
uuuuuuuuuuyuuuuuiiuuiiuuuuuuwvv WVWVVVVV WwWWWWWWWMwWnXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZZOOOOOOOOOI 11 1 1 1 1122222223333344444 
UUUUIJUUuUUUUUUUUUUUUUUUOUW vvvvv VWVVVWWwkwWiWWWIWk.vXXXXXXXXXXXXYYYYYYYYY YZZZZZZZZZ ZQOOOOO 0000 1 1 1 1 1 1 1122222233333344444 

UUUUUUUUUUlJUUllUUUllULlJUlJUUWVVVWWYVVyVwWWfcrfViWWWMWWXXXXXjXXXXXXXYYYYYYYYYYYZZZZZZZZZQOOQQOOOOOl mn 1 1 2222222 3333334444 4 

UUUUUUUUUtJUUUUUUUUUlJUUUUV V WVVVVW WWW W^iwwriflwyiwhViXXXXXXXXXXXXYYYYYYYYYYYZZZZZZZZZOOOOOOOOOOlllttl 1 12222222333333444 44 4 
UUOUUUOUUUUUUOUUOOOkUUUV W WVV WVV WVWWk.wiswV'wnwVwViXXXXXXXXXXXXXYYYYYYYYYr ZZZZZZZZZQOOOOOOOOl 1 l U J 1 11 22222223333333444444 
OygUUUUUUUOUUU JO JWIHUU W V WVVVVW VVWtfWmiwWWWWWwXX XXX XXX XV xv x YYYYYYY YYYZZZZZZZZZZQOOUOQOUl 111111112222222233333344 44444 
UUUUUUUUUUOULiUUUUUuUWW WVV VVWVVV-' XX X XXXXXXXXXYYYYYYYYYVZZZZZZZZZZOOOOOOOOl till U1122222222 3 33 33344 44 44 45 


,6603E»01 

,7099S»01 

,76i6E"01 

,648b£aQl 

»9054E"Q1 

, 9b4bE«0 1 

.,1065 

,1131 

0 1244 

,1316 

.1397 

,1913 

• 1634 
,1733 

a 1048 

,3032 

,2226 

,2362 

,2901 

,2717 

,3337 

,a*09 

,3229 

,3370 

,360s 

,ma 

,3090 
,4130 
,4263 
,4418 
,4628 
,47 92 
,9002 
,9170 

,9660 

,5030 

,6061 

,6367 

,6602 

,6963 

• rail 

.7401 
,7918 
.8190 
,8464 
,a0i3 
,9178 
,0546 
,9709 
,0944 
1 i 007 
1,022 
1,037 
i.oSo 

1,099 

1.063 
1,066 
1,077 
1,004 
1 ,092 
1.105 



ELEVATION 

z 


SYMBOLS 
• ♦ 


•2,00000000000 t A 

•1,90000000000 * B 

•1,80000000000 B C 

•1,70000000000 C 0 

•i.soooooooooo o e 

•1,80000000000 E F 

•1,40000000000 F G 

•1,30000000000 0 H 

•1,20000000000 H I 

•1.10000000000 I J 

-1,00000000000 J K 

•,900000000000 K L 

•.aooooooooooo l m 

•,700000000000 M N 

•,600000000000 N 0 

• ,500000000000 0 P 

•,400000000000 P G 

O, 300000000000 U 4 

•,200000000000 K 0 

•,ioooooooooooe*oo a t 

,333066907 3S8E-13 T U 

,100000000000 0 V 

,200000000000 V n 

,300000000000 * X 

,400000000000 X Y 

,500000000000 Y Z 

,600000000000 Z 0 

,700000000000 0 1 

,800000000000 1 2 

,900000000000 3 3 

1.00000000000 3 4 

1.10000000000 4 5 

1,20000000000 5 6 

1,30000000000 6 7 

1,40000000000 7 S 

1,50000000000 a 9 

1,60000000000 9 ♦ 

1,70000000000 ♦ * 

1,80000000000 • * 

1,90000000000 * / 

2.00000000000 / A 

2.10000000000 A B 


14,9000000000 -l J 

15.0000000000 J K 

15,1000000000 A L 

15,2000000000 L M 

15,3000000000 M N 

15,4000000000 N 0 

15,5000000000 U P 

15,6000000000 P 0 

15,7000000000 'J « 

15,6000000000 * 6 

i-* 15,9000000000 a r 

16.0000000000 I 0 




I — 1 
00 


THE PLOT CONTROL CARD IMAGE IS 


PL0T,CALP0ST # F9(FSHBaB,,F8Vai4.) 

//PAPER 12, LEROY PEN SIZE ,S» MULTIPLE MODE// 


FRAME An YO 

1 0. 0 , 

2 0. 0, 

3 0, 0. 


25 0 . 0 , 

26 0. 0. 

2 ? 0 . 0 , 

2» 0. 0. 


JOB NAME »• OAFQGFA 

DELIVERY f» 8648 RB R rt BENNETT/EXT2661 
THE PLOT CONTROL CARO IMAGE 18, 


PL0T.CALPD3T,F8(FSHs28 f ,FSVslfl 0 ) 

//PAPER 12, LEROY PEN SIZE .5, MULTIKE MDOE// 

OPERATIONS CONTROL MESSAGES, 


SET 8LKN0 2*** 

PLEASE CHANGE PAPFR 


SET BLKNO 28*** 

PLEASE C h A m G F PAPER 


THIS FILE CONTAINS 28 FRAMES, 

57 PLOTS. 

83632 POINTS, 

estimated plotting time 2 hrs 17 mins, 
estimated plotting 24, a ffet 

AVERAGE PC'S 0, percent 

PLOT TAPE NO, PLT195 ON CALC n Mt PLATAgri , 

DATE - 7P/0S/10. TI’-'E . nfi.sa.PM, 


XM YM CAL, PD8 

1 .ooqoooe+oo 1 ,ooooooe+oo 0, 

l.OOOOOOE+OO 1 , OOOOOOE+OO 0, 

1 .OOOOOOE+OO l.OOOOOOE+OO 0. 


l.OOOOOOE+OO 1, OOOOOOE+OO 0. 

i , oooooof+oo 1 , OOOOOOE+OO o, 
l.OOOOOOE+OO l.OOOOOOE+OO 0, 
l.OOOOOOE+OO l.OOOOOOE+OO 0, 



4AFQGFA, 78/05/10.NA8A/LRC CVl75*T NOS 1,2 (TUI 


08,45*02 

08,45*02 

08,45*02 

08.45.02 

08.45.03 

08.45.06 

05. 45.07 

08.49.20 

08.49.20 

08.49.20 

08.49.21 

08.49.21 

08.49.23 

06.49.23 

08.49.24 
08.52.55 
08.53.42 
08,54,30 
08,54,30 
08,54,30 
08,54,30 
08,54,30 
08,54,30 
08,54,30 
08,54,30 


,M0D£P9C# 74-000, CH060 000, 

, B648 RB R M a£NN£TT/£XT2661 29 

.USER, 052061N, . 

.CHARGE, 100632, LRC, 
,GET,MPROC/UNs052O6lN,PW= , 

, MPROC , 

, 034300 CM REQUIRED FOR OVERLAY (2,2), 

, END MPROGT 

. 706,385 CP SECONDS EXECUTION TIME 

, SAVE, TAP E2*SAVTPE2, 

.ATTACH, PLOT/UNSLISRARY, 
,PL0T.CALPnST,F8CFSH=28,,FSVsl4,) 

.CONT, //PAPER 12, LEROY PEN SIZE .5, MULT 
,TPLE MODE// 

, THIS JOB HAS ***** PLOT ***** OUTPUT 
CFO PL Tl 95 , 

ImT25J ASSIGNED TO CALTPE , VSnsPLT195, 

, ***** PLOT OUTPUT completed ***** 


.UEAD, 

.UEPF, 

, UEMT , 

. UEMS , 

, 175 CPU 
.UECP, 

, AESR , 


0.003KUNS, 
0.179KUNS, 
2.001KUNS, 
18, 1 H9KUNS , 
SEC « UECP/5 
910, 340SECS , 
740.070UNTS, 


*Oo$ l A 
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Listing of TAPE2 


MEASURED MODES FUR PLATER 8UPPRESSIUN WIKG 
9 


MEASURED AMPLITUDES 


(QZOX CL) » La 1 » 365 
•2,516463634OJ0E*O3 
2,1619765770796*02 
1 ,3287384839976*01 
2, 935 5o 64626648*01 
3.1B54306727B9E-01 
9,1095829183466*01 
6,0219789361496*01 
5,90I212478909E-01 
S,599l92694226E*ol 
CZPCL),L=l. 36) 
9,273068047908E*03 
3,71365lSai6f)9E«n2 
1 ,0278847413796*01 
1 , 799l784b68a3Ei.nl 
a,3142966fc5278E*ni 
5.420997786l0S6*0t 
7,0428653791186*01 
8,9036046506398*01 
1,0097»2518338E*00 
C(FQC(R,H),M«t, 6), 
5, 0^36892483 li|«ol 
7,1465637363706*03 
-4,463329337455E-f2 
9.92695481 4598E-0S 
-l.5061765229naEi.n3 
*7 .061285848390F-04 
2.6243136120746*03 
2,288306591 51 2E»na 
l, 059087 16l5a9F-03 


FOR MOOE 1 
2,3983145746596-02 
4, 164751 597 156fc»01 
1,8187925768946-01 
2,2929466133126*01 
4,867026451 190E*O1 
3.S17571673902E-01 
3.34J85796250SE-01 
7,0069706740886*01 
8.623271365759E.01 
FOR Mont 1 
9,0347549834506*03 
7,0672037568186*02 
1 ,6466477727166*01 
?,272967214483E*01 
4,750866652324E*0l 
6,053728121364 6* 01 
7,419206981413E*01 
9,231355827364E*01 
1 ,0270075843336700 
Nal, 6) FDR MODE l 
5,8191608059646*01 
2.043362998642E-03 
1 .3020480053956*02 
-1 .0761314279696-03 
2,6658g9495078£*03 
1.9276771553086-03 
1. 5684443653336*03 
5,573877 17 3833E»03 . 
4,4954916325806*04 ■ 


2.361470134117E-02 

7.4T613373S905E-02 

2,9952466131256*01 

2.613786354101E-01 

8,9896315319646*02 

6,1638750250746-01 

6,498314902179E*01 

•1,3566041915966*02 

9,5638883809706*01 

1,8216221779096*02 
3,9506821611 J0E*02 
2. 0296327902356-01 
2.8508880056356*01 
4,3788323269316*01 
6,7012229921626*01 
7,9148536298496,01 
9,4046840347916*01 
1 ,0491403967396*00 

7, 40 46 3926923 5E *02 
1,0892600369631*01 
*3,6501256227976*03 
-2.8643357391186*03 
■3,0163338507436*04 
-l, 06530867 020 OE -03 
2.3471119860576*04 
•8,8632399653326*04 
•1,5985624110166*03 


4,689782fl96095£-02 
1,1351563263626*01 
3,9702553159946*01 
3,8992454316726-01 
6.03274C134325E-01 
5 , 900 4929 537 87 E *01 
4,8307209483116*01 
8,65«l34ai3717E»0i 
7 , 560694098 1 68E-0 1 

3.1O5O623O00256-02 
6,2737614640726*02 
2,580737435919E*0l 
3,666660664489E*01 
4,65709B833468E-01 
7 , 17937 1662276E-01 
8.452417012001E-01 
9,5078145095496-01 
1 ,082537Se384SE*00 

■1 , 3349236294686*02 
4,2735954191836*02 
-1,7902640893986*03 
1,5676945077416-03 
-I ,956086470624E,03 
'3,0336167665276*03 
'1,6443094765186*05 
■3,1119951028556*05 
1,1149639063946-903 


20 



(DZOXCUfLo), 36) F0J« MODE 2 

4,6113006445556*03 3, 572220087 1 7 JE-03 

•1 ,2328825102 16 E -01 -2,3J2£4U5e9(>Q4E*0i 
-9,6037416428086*02 -2,495588 2887426*01 
-3.64 3078649773E-02 -1,12514062884561*01 
-3.86S695572664E-01 1.21602i847592E*01 

7, 7»1 1433956406*02 1 , 496333406 109E+O2 

2, 363427 8880096*01 4,66«2i69B8B22E*01 

4,8104294103356*01 4,0365784118436*01 

7,4505136320086*01 8, 47266604 128S£*01 

(26 (L) , L* 1 » 36) F09 MODE ; 

7 ,6600937 61 47 16*03 9,0959399652126*03 

*3,8937677796806*02 *6, 68982421 0586E*02 
2,5596998048776-02 *2,0838971765366*02 
1 ,2945677168576-01 1,1962996436116*01 

-1,3139005192556*02 -3, «67 1476907576*02 
3,1332336368246*0] 3,2698477699426*01 

6,0669530360576*01 6,2949273230906*01 

7,3052933269606*01 7,553032147 12SE*01 

9,8307480012886*01 1,022645031 1196*00 

CUQCCN,m),H» 1, 6) , N*1 , 6) 609 MODE i 

3.17007509J668E-01 4,7098602525376*01 

-4,9600505893126*03 -5,3940256764256*04 
3,7 27687267 42 16-02 -*2.6113328991516*02 
2027 053438366*02 9,64092 l JOl SSae+OS 

7,559468925543E*03 3,9180541498286*04 

-5,1562161979686*04 -1 , 5024*99 126O3E-03 
-5,9987929963166*04 1,7986820996246*03 

-9,08494661 8885E* 04 *7 ,62 96960020 24 E*0 4 
-),1 10797491 J67E-04 6,9693944466546*04 

(08D>c(O*lel* 36) FOR MODE 3 

-1,9585440566196*02 -3, 1 389o5oSl 2046-02 
-3,2348348121396*01 5.0854532068716*02 

2,1 75956 3t>6976E*0i 1 , 700615178723E*01 

2,7819227711086*02 5,1338860372896*01 

9,9432322171036*01 1 . 5g 1 88*651 8208*00 

1, 35547809g97 0E*00 1 ,2593l64 39029E*00 

1,971 2600586 19E900 1,9845941589106*00 

1,7396769061366+00 ) ,9519428427966+00 

2.604031132989 6*00 3 , 3 1 72752377 1 1E + 00 

(ZPU)il»li 36) for MOOS 

-7. 136607 6Q9 534E-04 -1,24 37723706906*02 
-8,99Ttl87«4646E*02 *1,2216723777326*01 
-1,7379386948536*01 -1,5903820669626-01 
-4,2468338019326*01 -3 , 80829086394 1 E-0 1 
1,008379 l 76533E-01 2.3173001650936*01 

-3,89 1 7 60545 53 7E -02 1 ,8 1 193b667 70 86-01 

1 . 092491 368929E-01 2 , 582767 1 60364E-0 1 

8,2566786083366-01 9 , 1 7 l 43 1 447 665E-0 1 

9,5431 461 309 J 7 E-0 1 L,129l63Q59g8lE*00 

((FQCCN r M) f N*l, *),S=i, 6) FOR MODE 

-2,6922946348856-01 1 ,3349510102446*01 

-2,5290144631151*02 9,8240316826792*03 

-6,4498247497098*02 *3 , 683935121 1 1 7E*02 
3,4569834616226*02 3,9558822237156*03 

-2,4595081666066*03 2,2851169958496*04 

*1 , 980834 4338 39E-0U 1,6750342135796*03 

1.36957 1891 77 3E-03 2.7258279412166*03 

-2,2569*40030106*03 1,1134424696736*04 

2 * 322028474 174E-04 2 ,9083957 13342E-04 


ORIGINAL PAGE IS 
OF POOR QUALITY 

*1,8006729034296*02 *4 ,22259295724*6*02 
6,4588*7 (144464E-03 -3 ,293362528508E*02 
•4.877988812102E-01 -5 , 649797598322E-02 
- 1,567 404208932E-01 *2 , 544604 1 20827e*0i 
•3, 1283061 45416E-Q2 4 ,6 123704O6807E+0* 

7, 94032362 1 787E»02 2,0671189214616*01 

2.724093480758E-01 3,1283323135426*01 

6, 794 1 840712 J26+01 3,78458S628707E*01 

1,5518321100286-01 1 , 1029 1223080 JE«01 

6,6070681531436*03 -4,21556972Q730E*OJ 
4.350124027887E-02 4.394922453077E-02 

-1 , 164148(1664976-01 -1,6692865097488-01 
9.479828904822E-02 4 , 57450334«396e»02 

3 ,0534981 93 19SE-01 3 .0500S3233589E-0 1 

3,4776524473886*01 3 , 3*932286036 3E-0 1 

*,T8«49b502O63E*Ol 7,1611073070106*01 

9,1662476372406*01 9,4323604502866*01 

1. 036001 3 16 1416+00 1,0415115350156+00 

1,6980098174306*01 1,5331097285*86*02 

-3,2341321421006*02 3 , 37 3906* 1 4770E-02 

-9,27*367 58 1356E-04 2 ,997 351 77 4 1 7 «£*0J 

4.217159003T89E-03 - 1 , 326570062»93£*02 
•5,8848*81737736*03 1,4917902673596*03 

2,7045839922066*03 *1 ,4255298665646*03 
-8,*66535023209E-05 -1,0525227976008*03 
9,3236569908116*05 2,94040379 1324E*0« 

*7,5139731222766*07 3,T44344a39962E*0« 

-1 ,2854684497916-02 -6 , 3 1 32523507056*02 
-1 ,645219735*456*01 *6 ,494398'07 87326-02 
4, 71165 'j 77531 5E *01 8 ,837601 222764E-01 

6,31138107 83096-01 6 ,74740000040 1E+01 

1 ,0136377088196*00 1,1099843944906*00 

1 ,50888 924 49096*00 1 ,6422638847 4 7 E*00 

2,00094/1290606+00 1,8338888752746+00 

2, 180 49882937 7E *00 2,4715837451022+00 

1 ,791 442497 479E+00 1 , 5 1 05928 8 38 186*00 

I 

+2,5574178134406*02 *3,9127947806616*02 
■ l, 530 1 9 J9 187666*01 -1,8 32688732*7 46*01 
+7.038079512032E-02 2,9575493*03516*02 

*2,65561(i9487 76E*01 -8 ,*8530b366446£*02 
*3.5994 168533386*01 -2,33*1955640006*01 
3,a24292200395E*01 5,0304590299716-01 

4, 644856 5954576*01 6.66963062678 9E-01 

*,7840580739156-01 7 , 87 93354B3085E-0 l 

1 .2529827 15 188E + 00 1 ,3110051266856+00 

I 

4,71882 14804796*01 3.2433721000526*02 

1, 766650045 192E-01 2 , J98 325920225E-01 

2,49452951 10066*02 -1 , 404627854266E-02 
•3, 3350700 18228E*02 2,2964233411106*02 

•6,4000516926676*03 6 ,360737 7689 1 9E*05 

•3,8877859*62006-03 2,6091474175O2E*O3 

*5,3432104632456*03 3,474276702224E*03 

1,3801869*95546*03 - 1 , 31 5189*33927E*03 
*4, 650*2091 3681E-03 4, 4450021 27 7236*03 
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(DZDX(L) »L«t * 36) 
-1.2291972662456-02 
2, 458656 984722E-01 
6,3265345433*46-02 
1,6259450362916-03 
1,672674712994E*01 
8,1 191271737056-01 
1,220930499616£+00 
1 ,2126S0423964E*00 
2.131099151800E+00 
(ZP(L),l»l, 36) 
•2,67219064144TE*03 
4,0676803448376-02 
-1,0449267430556-01 
-2,4439252645136-01 
-5,9598Q54ja008E-02 
-9,464064412104E*03 
2.063720843272E-01 
7,2577486178672*01 
9,5377390072936-01 

C CFQCCN,M) ,»DJ , 6), 

-1 ,1042iaJ2a010E«01 
-1 ,62527601 1769E*02 
-1,5861722990876-03 
2, 8 67 0455 15 286 E*02 
-6,S56815591U28E*03 
4,5497790529712-03 
3,tt2?22«461242E«03 
! ,3829311033896-03 
2.036577102970E-03 
(OZDXtL) »l«li 36) 

1, 3350527 9529bE*02 
-2.178995080025E-01 
2, 5235639536286 »ol 
1.854842149194E-Q2 
1.339399710312E-01 
1,330557 681 25 3E*00 
2,6175058 13571 E*00 
2,9266403103636*00 
3,9613662610516+00 
(ZP CL) »!•■!> 36) 

1, 0338610852956-02 
1,4682653994256-01 
6,3691 055699 55E-02 
-2,3352423613756-01 
-1 ,202089508869E*02 
-2,9208160288446-01 
•3.182536899370E-01 
7, 051 13795701 4E-01 
9,4885937)74626-01 
(CPQCIN,m),M 41, b), 
-1.828054708879E-01 
3, 323 1 36 449 47 9 E -03 
3.017632419991F-02 
1 ,4979783638086-0? 
1.469339893043E-02 
3.893276765406E-03 
-4,8063437014536-03 
1,1568188486016-03 
-1,6124473001886-03 


FOR MOOE 4 
-1,9903730617276-02 
7.136613576581E-01 
2,1583424192216-01 
2.5285796931656-01 
8,9914769926826-01 
7,8380536053176-01 
1,4257526064666*00 
1 ,56420 127 6027 E*00 
1 ,6800732605576-00 
POP MODE 4 
-9,4713022421056-03 
1 ,2396625541306-01 
•7 , 0 J 5687420604E-01 
-2,2242040972366-01 
-a,4l6075l62773E-03 
1 ,21 11834550446-01 
3,0298125952036-01 
T,936935J26286E-01 
1 .0898602044956+00 
Kisl , 6) FOR MODE 4 
1.830269664739E-01 
3,72334735t464E-03 
-2,6936254681136-02 
-9,4412315489216-03 
8 ,7303392497 57 E-03 
-1 ,2587026205706-03 
6, 184793035422E-04 
-1,8754343489226-03 
-l .463612350635E-0S 
FOR MODE 5 
5.0517S3899634E-02 
-3, OS 06981398566-01 
1,1416529483946-01 
3,224930385851 E-01 
8.126553060893E-01 
1,3264483792096*00 
2,6200670169536*00 
3.470506071423E+00 
4,3873165164046+00 
FOR M006 5 

1,2746165801266-02 
1 .029350369678E-01 
1 .33371366T353E-01 
■ 2, 11396806911 oE -01 
3,4071038129666-02 
-7,7683l3iei717E-02 
-1 .129828942542E-01 
8, 6492450505 19E-01 
1, 24799557 4424E*0C 
N«l, 6) FOR MOOS 3 
-1,6966109226306-01 
-2,06673?894872E-0a 
-3,6147295569946-02 
7,3943173292916-03 
1,9402463867166-03 
-6,0750830215206-03 
6. 1165863635216-03 
-a.mfcTiibaoEaE.os 
-6,5725822561216-04 


1,0391867560882-02 
-7.998153134101E-02 
3,5064852217336-01 
2,5402992781SO£«01 
5,0755970882626-01 
8,159413407903E-01 
1 ,3689694267 JiE+OO 
1,5763287419756*00 
1 ,9866484553126+00 

-1,3883618707546-02 
-9.483729904564E-02 
1,1243861671656-02 
•1 .715607972436E-01 
-1,9324497083306-01 
2,4700647479556-01 
4,6866353660356-01 
7,4621370162636-01 
1.1649309616546*00 

3,6422899479896-01 
1,1429778715276-01 
-5.2B5573224834E-03 
-6,3543600124646-03 
1 ,991623580283E-03 
•1 ,2798521 30616E-03 
8,3044396861026-04 
4,5482438141266-04 

2.23S318244737E-05 

1,4699324276336-01 
7,9007627755356-02 
-4,4437945968646-01 
3.898485036U3E-01 
7,233674804S89E«01 
1,3844983239J8E*00 
2, 82395439485 OE +00 
3, 32 408362689 3f +00 
3,8218242601526*00 

4,6174661146086-02 
«2 , 195099) 14827E -02 
8,53bl09303649E-02 
-1,4110997237226-01 
-5,8081792396876-01 
1, 3530421831 42E-01 
l, 7 1ST 330 1224 Ot -01 
5,0459S0113691E»01 
1.479745583007E+00 

3,3924026777776-01 
2.289488627697E-01 
-2,6421267087716-02 
-2.365080118094E-03 
-2,1409420661 36E-02 
3,8816972967866-03 
-3.602667961253E-03 
7.OO5777716607E-04 
-1,3055460817166-03 


3,206920093928E-Q2 
-4 ,4950222 16 507 E-02 
6,1827931522796-01 
2,7388331512476-01 
6,4441115192376-01 
1,1S1270031627E*00 
1, 22062 06397 16E*00 
2,3991225430746*00 
l,'4236963894|3F»il 

-8,8843018885706-03 

-1,0931818175466*01 

7,5969683808186-02 

*1,089394389942E-01 

-1.243649596945E-01 

3.192056231741E-01 

6,1427910099986-01 

8,3595870428036-01 

1,2287444869046+00 

6.018605230214E-02 

1,2602145860676*01 

3.183099635451E-03 

4,6739903037526-03 

-8,5636199814316-03 

2,9351902559846-03 

-3,9468880763206-04 

-1,3008158543596-03 

8,1813280520426*04 

2,2871952548126-01 
1.724809057533E-01 
• 2, 95607 37.S0.24 96-01 
2,589984477337E-01 
8, 56496484034 7 E-01 
2,0855721678736*00 
2.773705743124E+0O 
4,2424327816836*00 
2,7559633634096*00 

1, 2428398097 63E-01 
8 ,85660057 7722E-05 
3,7455411283416*02 
-5.825607528404E-02 
-4,7805415396776-01 
2,621 16940988tE-01 
4,6536044469966*01 
6,8008371901986-01 
1 ,59605424205bE+00 

2.782631041607E-01 
1,945157066375E-01 
1 ,2685205345646-02 
-1.5B1449002195E-02 
5,2061176475006-03 
-3,1039654756716-03 
1,0985235113696-03 
7, 57 1 302 17 67 3 7 E-04 
5,6619291776716-04 
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COZOX CL) »L«l# 36) 
■4,85379i24658«E-0S 
•2,537£59610291£.01 
6.77lDl9862t«7E-01 
S,638760387643E-(U 
5,43S93629448aE.0i 
2.769211331021E+OU 
4.51618B863513E+00 
5,1833025268692+00 
7.264073127436E+00 
CZP(L>,L»1, 38) 
-1.6199o9720S18E*o2 
3,634635891 52 7C-02 
-8,6760383600462.03 
-6,0629671555432-01 
2,4784024054948-01 
-a.91536033t888E.ol 
*9.385915476927E"0t 
9,S87880108222E-nl 
A.6S3386773531E-01 
((FQC(N,rt),Hoi, 8) 
-6,186367910339?. 01 
3,19914799129«E.02 
-6.446S73103530E.02 
1 ,973543J99800E-02 
3,l35279348aue.03 
1,1932855713376-02 
-6, 981237637986?- 0 3 
6,2783195114962*03 
.6,6205976722988.04 
(QZDX (L) *L*1 , 36) 
3,8938583436922-02 
. -3.883805681932E.02 
-2.3420l9225864E.nl 
-5, 3 28 66 7 29 4 b24E -01 
•5.888397753612E.01 
-3,g709486770b9E"Ol 
«, 797498 J0U382E-01 
6,346094951076E»01 
2, 7 60 88047 27 6BE toO 
(ZP(L),L»lr 36) 
2.297389527720E.O2 
2,l9650161fe47bE»02 
1 .212804738973E.01 
2.617577997260E-01 
-2.491U319b599E»01 
-1 .898347682100E.01 
2,2338087362236-02 
2.756951 8525fe8£"01 
9.556938203009E.01 
(CE 8 CtN,M),Moi, b) 
2.085162648292E.01 
3.487753532757P-02 
1 ,77l867281057E«0l 
-3,138012il7406E«03 
5,5614777699l5E«n3 
-5.267390869779E.03 
-1 ,27011996B778E-n3 
.2.809353237694E.03 
-l.i87144186136E.03 


FOR MOOE 6 

1,3289241 56 63 36.02 
1.623475866 33 3E.0J 
u, 9944702326176.0) 
1, 32267291b 7 196*00 
1 ,0097832810496 + 00 

2.8380148390576.00 

5.1521439234506.00 
5,9145027651116*00 
7, 386882754 56 96+00 

FOR MODE 

-e.496203372289E.02 

1.4358172001526*02 

2.0785449063426.01 
-3.642707388005E.01 

3.3667449716956.01 
-1.3175144033526-02 
-5,6406106891186-01 

1.2259073240216.00 

1 .4024399908496.00 
Hal, 6) FOR MODE 
-u.563763130767E.0S 
-3, 4836931310196.02 
-1,399B48826«58E.02 

1 .0770389389826.02 
1 ,299o80013l69E.02 

-8,3018189071526-02 
9, 908666303 22 5E -03 
-9.49408J573032E.03 
.1.7732J416S5J4E.03 
FOR MODE T 
2, 5568347 9) 57 86* 02 

3.0691905231632.02 
-1 .359133379 22 3E«0i 
-7.lb7999260799E.01 

2.5056648892856.01 
-5. 7201371812382. 01 

7 ,7099550146846—01 
1.8158060317316*00 
2,9602570360792+00 
FOR MOOE 

5.386588924133E.02 

2.1169546242516-02 

«,693l60722fl8lE.oa 

1.5317708946952.01 
-2,0098322486152.01 
.2. 7918637881912. 01 

7.7709983743202.02 
3.3057254476672-0] 
1 , 100341 447 265E.OO 

fc«l r 6) FOR MOOE 

3.3107237434106.02 
.1,6005666986692.02 
-7.547583299947E.03 

1,0233690366356*02 

4.0409777712936.05 

9,3816573701236-03 

-6,7225843651116*04 

5.7878906914796.04 

7.9487806751156.04 


1,1512645638256-01 

1,2333618243762.01 

.7,8065886757562-01 

1 ,310365479863E+00 

2.104524361547E.OO 
3,3154515386112+00 
5,21258631 1075E.00 
fe.534520072173E.00 
7.10030I792297E.OO 

t 

•4.061897884039E-03 
.2.278273896666E-01 
1,7216919370006-01 
-1.8J2999972312E.01 
■1,1607163113446.00 
4.170724422609E-01 
.3,9622240795882-02 
7.980783154221E-02 
1 ,797 48855280 OE + 00 

4, 1837b5034748E«01 
5,23551fe433744E*01 
.3.8984799260056-02 

“4, 30 726616882 2E -03 
-4.372507556914E.02 
1,3525 3346 97 43E -02 
-5,9753272901685-03 
1, 04376476547 6E. 03 
8.4245932OO788E-04 

■3,2l5410134247E-02 
5.921056868731E-02 
1 ,535bS1269i3JE-01 
-6.6B9386689164E.01 
-7.134416955037E.01 
.0, 23026999522 2E -01 
6,064961«56678E.O1 
2.O448079555S3E.OO 
1 ,75031 4U9867BE.00 

3, 65411124057 9E -02 
1.941681073501E.01 
4.514848330147E.02 
1 ,63484O934924E-04 
.2,7942814890122-02 
*3,2175051 1098 3E -01 
1,391087323855E.01 
7,0171323767512-01 

1,2161046220586.00 

9, 46230 565468 62 -02 
-1,263926649000E*01 
. 4, 35 91 4 135964 8E. 02 
-7,5094991009682-03 
1,2891260192142-02 
•7, 27 95 7568440 5E -03 
5.365630868484E.03 
•1.018473527937E-03 
•7 » 1 13672606366E-Q5 



1 .067549639998E-01 
3.8470629928302-01 
-4,9260 13933547E-01 
9,07411738fel48E-01 
2.117831904365E+00 
3,6106452654912+00 
5.2171152071042+00 
6.9O66806O9782E+OO 
5,3378553264072*00 

4,9943493659912*02 

-1,0358257732686-01 

8,3358947727232-02 

9.672032217723E-02 

*8,8968207901202-01 

b,83019U514508fc-01 

5.00076S553710E-01 

4,082331896027E-01 

2.018075398221E+00 

3. 2560835 14943E-01 
3,295339981350E*01 
1, 3705986 16349E-02 
-1 .27 026 5829435E-O2 
1,113666905124E-02 
-1,716460331031E*03 
-9,3316626776932-04 
5.101263200920E-04 
2,9882531 13593E *03 

-6,4377603781712-03 

-1,476796270572E-01 

-6.692804.225690Er.02 

-5.27948B142294E-01 

-6.07898O19O966E-O1 

6,T54963834213E"01 

4, 57 54926206 52 £-01 
2.212032818896E+00 
7,7101553039952-01 

2.814567212242E-02 
1.860978175747E-01 
5.5744403598042-02 
-1 , 42339(16 638 356 -01 
-9,8998529373772-02 

.3.335053655282E-O1 
2,2307bl57484bE-01 
8,051039l63674E*Ol 
1 ,2635695006096+00 

3,0688786429812 -01 
-3,4601489573642-03 
1 ,0674063207212-02 
-3,9246710249742-03 
«7, 14745253621 2E -03 
3,8332111136522-03 
-1,37 154009778 8E -03 
6,4674748949232-04 
-6.281512269663E-04 
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(DZOX CL),L»i , 36) FOR KODE 0 

b, 144632732185 £*02 3.7863 1 04 1 2028E-02 *6,635659453289£-02 *4,3951396110696*02 

-4,89S856039343E*02 -1 ,66059045S083E»02 5,0128 19133876E*02 -2,64O23Ba30S44£*Ql 

-4.93516092u899E«01 *3, 1430515737766*01 3,067401H0826SE*01 *1 .7O772538B81OE-02 

•7. 969292 3490202 "01 -1,0806224209581+00 •1,1196008140096+00 *8,7183733334046*01 
-6.1367541984126*01 -4 ,840869 1 487906-02 *1 ,37257227 1300E+00 -1,408197723*756+00 
-1.40087933S631E-00 -l ,409841 144941E + 00 -1 .937037332198E-00 -6.1901573262136-02 
-4,9155169977506*01 *2,3928363676566*01 «9 ,64 1 564029434E-02 -6,6580633630186-01 
*6,63962T059600E*0l 4,5217214734466*01 9,0463011633176-01 6,8265600444476+01 

1 .065050744575E+00 1 ,0476959035476+00 7 ,257473743016E*01 *2,4023231 12062E-01 

(ZP (L) i L n l » 36) FOR MODE 8 

3.4207553605696-02 5,3698957 633566-02 5 . 488056 1 1 8360E-02 2 ,837607 3836 1 7E*02 

1.506246286558E-O2 7,38214667 50276-03 3 , 234352 1 83 1 38E-0 1 3,027231 1257436-01 

1.753624724089E-01 2.5995916046906-02 1,9955414606866*02 4 ,4250424288476-02 

4. 99286 4057 54 IE *01 1,0146518906406*01 5,6498648276436*02 -1,87 75507 506576-01 

-3.536545259387E-01 -4,1550089561946*01 2,5592729536126*01 1,0230522130776*01 

-1,1472579530956*01 -3,5095207451846-01 *5,2415381952346*01 -6,2114672462156-01 
2,352797Bl9608E*Oi 2,1750997880706*01 1 , 923?7 7737335E-0 1 1,4106144666636*01 

8,6416067903696*02 8,2168161379236*02 8,6630099996056*01 9 , 097091 7 151 $66*0 1 

9,T890473?3472E*01 1 ,0489 1 80097 1 OE + OO 1 .07908979I709E + 00 1 ,0927925324886*00 

CCFQCIN,H),H»1, b),Nulf 63 FOR HODE 8 

4.2640274278746-0! 1 .4) lo52544246fc-01 1,3036070469416*02 3,1544671643236-01 

2,2160731341UE*02 1 ,03823768001 IE-02 *2,8286239276716-01 -1 , 0893269 1 2088E-01 

2,3219249411836*01 -2 ,8793280903206*0 J *3,9146075947516*02 *2 , 38047 58 30 1 656-03 
-1,57 7 02 068090 96*02 1,03 1 *35373 t 23E-02 *7 ,6830549709«9E*03 *1,0281510959746*03 

6,3089598539576*03 »? , 7b 1 84224 1 8 1 7 6*03 2,5014449520916*02 -1,1590865789916-02 

-1.101665342741E-O2 1,7028376424976*02 *1 , 188067930872E-02 6,847797468247 6*03 

5,767569219781E*04 -2,5037918137796*03 4 .0855357 18755E*03 -6 ,065627833 1 97E-05 

-3.707354727431E-03 M , 0992525 1 88236-04 -2,5602122116356*03 1.7192044971836*03 

-6, 3506 2 48 28 36 9 E *05 1.2311869915576*03 *9,1875530597926*04 -9,9356500807746*04 

CDZDXU) »L»1> 36) FOR mDD6 9 

1,2849382945466*01 3 , 9986269 1 43336*02 *1,4854714482026-01 -2 , 3226409 1 51 2 «E*0 1 

-9,8475770416506-02 8,6797134026616-01 2,097 108689036E-02 -4 ,529336845035E*01 

-6,27434146339)6-01 -5,8221690065476-01 *5,0416525192846-01 1,5649625982486*00 

«7.8346128441J0E*01 -6,9888285464866*0: -1 . 1 1 42 18590566E-0 1 4,5631852210316*01 

6, 567 B566647 326-01 8 , 064797 1 2 1560E-01 *1 ,6460748 1 1 224E-02 S ,7 77 6421 i 9929E-01 

1. 2864832027886*00 1 , 485237859288E+00 1,6230037837546+00 3.077407103768E+OO 

3,3119633896946+00 3,845691470030E+00 4,4627643541156*00 4 , 345865002643E*00 

4.3651791148546*00 6,0078163207466*00 5,9211037341226+00 7,9617466432116*00 

6,6906738607896+00 6 ,9583861076006+00 6,6350603833616*00 4,3048102603336*00 

CZP (L) • L»1 i 36) FOR mode 9 

4,317891934317E*02 7,0482705132126*02 3,3181449500876-02 *2,6289053869336*02 

-9,1764104099916-02 *3 ,8«b 1 7985S488E-02 3,8998 l33465ibE-01 3 ,246497 394267 E-0 1 

1,5092626896606*01 -4,9131648344466-02 *1,6141561378716*01 si ,3b3572423964E+01 
2,8834521880896*01 1 ,«3 1 5246Q0280E-0 1 3 , 6369225 1 7 5a5E*02 1 , 0 1 2846920395E-01 

2,1826200273226*01 3,0239702848906-01 *6, 101469699134E-0I -5 ,635473 1 6 1 656E-0 1 

-4.1764802749892-01 *1,7927597926266*01 8,9576980180486-02 2,5622656962126*01 

-9,5200B4707603F*01 -6 , 61 2} 57 9834796*0 1 *2,39O487762332E-01 2 f 2668ll302l4ie»01 

6.130442229231E*01 8,65163057i485£*01 4,9683371037166*02 3,78394725T786E-01 

8,8777953676025*01 1,4113486034266*00 1,8619751576245+00 2,0532373407196+00 

C(POCCN#H) »M»1, 6),NBl( 6) FOR MODE 9 

6,2409731114256-02 -4,3269i57l0867E«01 *8,2173314310606*02 S,543339480553E*0i 

1*1 1801936 36 05E *01 -3,0918069013456-02 *1 ,6961 596701 16E-04 3,5968851642986*01 

2,175287554237E*01 *1,2403630130406*01 2,4606769079836*02 -3 , 3 1 6527 1 67 1 T6E-02 

2,2808275019376-02 6,7280007391136-02 *6 ,6 1 3i 1 1 35 i 6956 *02 -4,396322oe3811E«03 

3,8107299207306*02 -2,4846516779916*02 1 ,72803898945SE»02 -1,9665203764236*02 

*2.0321749853626*03 1,2601610300176*02 *1,0868708538276*02 4.654080039272E-03 

-4,4793685588275*03 5,0039513401736*03 1 , 09937 1 657840E-02 -7 , 374 1 7 2874342E»0 3 

2,2113235577616-03 1.6954427181646*03 1,3402616029216*03 1,7437470233096*05 

-3,6242842564736*03 -1,6516250917476*04 -8 ,932388286985E-04 -1,0302746451666*03 
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APPENDIX B 


SUBSONIC KERNEL FUNCTION MATRIX ELEMENT PROGRAM, SUBCMAT 

Program SUBCMAT calculates the complex matrix elements used in solving 
the subsonic downwash integral equation for an oscillating planar lifting 
surface. The solution of the matrix equation is subsequently performed by the 
L— U decomposition program LUCMAT, and the generalized force program GENFLU as 
job steps. 

The program is dimensioned for up to 200 collocation points, requiring 
22,000 o words of central memory for execution. The wing geometry portion of 

O 

the program uses the same cards used in MPROC. The abscissas and weights for 
several orders of the Laguerre-Gauss quadrature are stored permitting select- 
ion of the quadrature order during input. 

The absolute binary program is stored on the permanent file system as an 
indirect access , semiprivate file named SUBCMAT (the overlay file name) . 

Access to SUBCMAT is obtained by the control card 

GET , SUBCMAT/UN=05206 IN , PW=S B CMTV 1 . 

The files declared by the program are (in order) INPUT , OUTPUT , and 
CMATF. The matrix element file CMATF is equivalenced to TAPE8 in the program. 
The output file contains an error message summary for nonfatal error message 
115. This situation results from the issuing of an error message under the 
CDC FTN compiler when the result of a call to CEXP underflows even though the 
result is set to zero. The message has been suppressed by a call to SYSTEMC 
in the main overlay and only the summary is printed. 


A short program called CMTPRNT reads and lists the file CMATF and 
serves to document CMATF. A listing of CMTPRNT and a portion of its 
OUTPUT for the sample case are presented in this Appendix. 

Control Deck 

A typical BATCH processing control deck is 

SUBCMAT, T0600 ,CM02 3000. BLDG648 YOUR NAME 

USER, . , . (your user number/your password) 

CHARGE, . . . (your account number, LRC) 

GET , SUBCMAT/UN=05206 IN , PW=SB CMTV 1 . 

SUBCMAT. 

SAVE ,CMATF=SAVCMT. (save CMATF file as permanent file named SAVCMT) 

— eor — 

INPUT DATA 
— eoi — 

Generally the L-U decomposition program is run as the next job step. 

Only the L-U file is saved for future use as it is the fundamental structural 
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mode-independent file. A BATCH processing control deck for this case is 


SBCMTLU,T0600, CM023000. BLDG648 YOUR NAME 

USER, . . . (your user number/your password) 

CHARGE, . . .(your account number, LRC) 

GET , SUBCMAT/UN=05206 lN,PW=SBCMTVl . 

GET ,LUCMAT/UN=052061N ,PW=LUCMTV1 . 

SUBCMAT. 

LUCMAT. 

SAVE,LUF=SAVLUF. (save the LU file as a permanent file 

— eor — named SAVLUF - Caution: this can be a 

INPUT DATA (for SUBCMAT only) large file) 

— eoi — 


Data Setup 

All input x,y quantities must be in consistent units (dimensional or 
dimensionless) and must be referenced to the same x,y coordinate system. 

The x-axis of the coordinate system must point downstream. The wing geometry 
portion of the input data is identical with that for program MPROC. 

The detailed contents of the input cards are listed below: 


Contents 

Format 

No. of 
Cards 

See 

■Note 

ID 

(8A10) 

1 


XLR,XTR,XLT,XTT 

(4E20.12) 

1 


YROOT , YTIP ,NL ,NT 

(2E20.12, 214) 

1 


(YL(I),XL(I), 1=1, NL) 

(2E20.12) 

NL 

(1) 

(YT(I),XT(I), I = 1, NT) 

(2E20.12) 

NT 

(2) 

NK,NM,NC,NS,NCP,ISYM,NG,IPRINT 

(2014) 

1 


RFMAX , REMED , RFMIN , ZET A 

(4E20.12) 

1 


(EM(I) , 1=1, NM) 

(4E20.12) 

(NM+3)/4 


(XP (I) ,YP (I) , 1=1, NC*NS) 

(4E20. 12) 

(NC*NS+l)/2 

C3) 


NOTES : 

(1) omit this card set if NL = 0 

(2) " " " " " NT = 0 

(3) " " " " " NCP < 0 


The definitions of the input variable names are: 
ID case identification card 

XLR x coordinate of leading edge at root 

XTR x coordinate of trailing edge at root 
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XLT 


x coordinate of leading edge at tip 
XIT x coordinate of trailing edge at tip 

YROOT y coordinate of root 

YTIP y coordinate of tip 

NL number of discontinuities on leading edge 

NT number of discontinuities on trailing edge 

YL, XL location of leading edge discontinuities 

YT, XT location of trailing edge discontinuities 

y must appear before x on the YL, XL or YT, XT 
cards. These cards must be ordered on increasing 
y and are the same cards used by MPROC. 

NK number of reduced frequencies, k, to be processed 

NM number of Mach numbers, EM, to be processed 

NC number of chordwise-varying pressure functions 

NS number of spanwise-varying pressure functions 

NCP flag for reading control point locations 

NCP = 0, XP, YP are calculated at Gaussian 
stations by the program 

NCP 4 0, XP, YP are read as input data 

ISYM loading symmetry flag 

ISYM = 0, symmetric spanwise loading is assumed 

ISYM = 1, antisymmetric spanwise loading is assumed 

NG half order of the quadrature formula used 

(If NG = 0, NG = 5 is used.) 

IPRINT printing flag 

•IPRINT = 0 XP ,YP and XG,WG are not printed 
IPRINT ^ 0 XP,YP and XG,WG are printed 

27 



the maximum value of reduced frequency, k, to be calculated 

the median value of reduced frequency, k, to be calculated 

the mnimum value of reduced frequency-, k* to be calculated 

The program calculates the values of reduced frequency, k, 
processed from a bilinear formula in descending values of 
k. For equi-spaced values of k, RFMED should be (RFMAX- 
RFMIN)/2. 0 

the normalized singular strip width used in spanwise 
integration. If ZETA is read as 0., the program resets 
it to 0.1 

array of Mach numbers to be processed 

X and Y coordinates of the collocation points. The 
coordinates are normalized’ on. local chord,, and semispan 
such that — 1 XP _< 1 and 0 £ YP <_ 1 

Program Limits 

The limits on the various integer input quantities are listed below. 

NL 0 through 20 

NT 0 through' 20' 

NK 3 through 9999 

NM 1 through 8 

NC 1 through 44 

NS 1 through 44 

NCP 0 through 200 (If NCP = 0, then’ the program computes NCP’ as 

NC*NS) 

ISYM 0 or 1 

NG 5 through 24 (If NG_ <_ 5’, then the program uses NG = 5; 

if NG >. 24, then the program uses NG = 24*) 

Program Output 


RFMAX 

RFMED 

RFMIN 


ZETA 

EM 

XP,YP 


Two output files are used: 
OUTPUT 
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contains a labeled reflection of the input data subject 
to the IPRINT flag 



CMATF 


contains the complex matrix elements for all values of k 
and EM as a single binary file. File CMATF is rewound 
at the end of normal program execution. This file is docu- 
mented by the listing of the program CMTPRNT which is 
presented after the sample case OUTPUT. A partial listing 
of CMATF for the sample case as generated by CMTPRNT is 
also presented. 
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ORIGINAL PAGE IS 
OP POOR QUALITY 


to 

O 


Listing of Sample INPUT Data 


SUBSONIC KERNEL 

• 1 , 

0 . 

10 1 6 b 


CALCULATIONS USING L«U PROGRAM • PLOT, SUPP, 


1 (>440714594439 
0 5 0 


,7458579455410 
0 0 


10 , 

,80 


0 , 


W , 9 


1 


b X b NOMINAL 

0 . 



ORIGINAL PAGE IS 
OF POOR QUALITY 


Listing of Sample OUTPUT 


SUBSONIC KERNEL CALCULATIONS USING L-U PROGRAM a FLUT, SUPP, R, 


6X6 NOMINAL 


planporm parameters normalized by the root semichqrd, bref = 

REFERENCE VOLUME » 1 , 72476773481 PANEL A8PECT RATIO a 

MEAN CHORD « 1.12707102723 MEAN AERODYNAMIC CHORD « 
PANEL AREA s 1 ,62373767790 3ENISP AN/BREF , 3 a 


1,00000000000 
1,27828198901 
1,35243540773 
1 ,4407 1439444 


NUMBER OF MACH NUMBERS, NM a 1 
(MACHCI) , I »l, NM) a 
.800000000000 


number of KEOUCED FKEOENCIES.NK b 10 
MAXIMUM K, RFMAX * 10,0000000000 
MINIMUM K, RF M I N a (j , 

number of COLLOCATION Points, n a 36 

LOAOINb SYMMETRY FLA'j, 1 3 Y M * 0 

XP,YP READ OR CALCULATE PlAG,NCP= 0 


MEDIAN K, RFMED a l ,00000000000 

number of chord rise pressure mudes,nl= 6 

NUMBER Of SPAnwISE PRESSURE MOOES, N36 6 


QUADRATURE MALF^OMOER, NO s 5 
SINGULAR STRIP M 1 0 T H , ZETA o ,100000000000 


PRINT UPTION, IPRINT ■ 0 


ERROR SUMMARY 

ERROR T I ME8 

0115 0324 


4AF08HH. TS/OS/OB, NASA/LHC CY17S»T N03 1,2 CT11) 


13,57. OS. SUBCMAT,T1000,CM0fe00O0, 

13,57,06,8648 R8 R M BENNETT/EXT266 1 29 

13.9T.05.U8ER,052061N, , 

13. 57. 06, CHARGE, 100652, LKC, 

13.57.07 . GET, SUBCMAT/UN“052061N,Pwa 
13,57,18, SUB CHAT, 

14.03.07, ENO 3UBCMAT 

14.03.07. 271.450 CP SECONDS EXECUTION TIME 
14,03,07 ,SAVE,CMATF*SVCMATB, 

14.03.1 1 , UEAD, O.OU2MJN3. 

14.03.11 , UEPF , 0.253KUN8, 

14,03,11 a UEM3, 1.017KUN8, 

14.03.11, 175 CPU SEC ■ UECP/5 

14.03.11, UECP, 271 .5403ECJ. 

14.03.1 1 , AESR, l69,9a2UNT$, 



Listing of Program CMTPRNT (Prints File CMATF) 


PROGRAM CMTPRNTl OUTPUT a 1000# CMATF o IOOOB# TAPES a CMATF) 
************************************************************************** 
* * 

* PROGRAM CMTPRNT READS BINARY FILE CMATF (TAPES) GENERATED BY PROGRAM * 

A SUBCMAT AND PRINT8 ITS CONTENTS ON THE OUTPUT FILE, * 

* A 

A************************************************************************* 
REAL CMAT (2# 200) 

INTEGER IOCS) 

READ (8) ID#BREF# VOLUME, NM,NK#NCP 

PRINT 100, ID 

PRINT 101, HREF # VOLUME 

PRINT 102, NM,NK#NCP 

DO 30 M a 1 , NM 

READ (8) EMACH 
PRINT 103# EMACH 
DO 20 K a l,NK 
READ (8) RF 
PRINT 104, RF 
DO 10 N a 1#NCP 


10 

20 

30 

100 

101 

102 

/ 

103 

104 
103 
106 


105# 

( 8 ) 

106, 


N 


CCMAT(l,I),CMATC2,n# 
CCMAT(1,.I),CMAT(2#I) # 


PRINT 
READ 
PRINT 
CONTINUE 
CONTINUE 
CONTINUE 

FORMATClMi,///* CMATF ID a *8A10) 

FDRMATC/A PREF =*G20,12* VOLUME 3AG20.12) 
FQRMATC* NO, MACH NOS, «* 14* NO, RED, FREQ, 
A NO, COLL0C, PTS, e*I4) 

FORMATf//* MACH NUMBER b*G20,12) 

FORMATC/* REOUCEO FREQUENCY **520,12) 
FQRMATC* N s*I4) 

FORMAT (4X#2G20, 12, 8X»2G20, 12) 

END 


1 # NCP) 
i#NCP) 


o*I4, 



Listing of Portion of File CMATF (OUTPUT of CMTPRNT) 




CMATF ID a SUBSONIC KERNEL CALCULATIONS USING L«U PROGRAM * FLUT, SUPP, W, » 6 X 6 NOMINAL 

BREF c i ,00000000000 VOLUME « 1 ,72478773461 

NO# MACH N08, P I NQ 0 REQ , FREQ, ■ iO NO, COLLOQ. PT8, s 36 


MACH NUMBER a ,800000000000 

REDUCED FREQUENCY <3 10*0000000000 

N a 1 

*2,42261902064 ,230711272360 

"2,0377 146924(1 ,67668258S728E«01 

Moi949364?290 *,281495061361 

2 6 1 3366 1 02006 *,33364588B03i 

1,86158269274 * , 2 1 4528560200 

1 ,20092414287 ,131514955228 

»1 ,7A9l839859g ,515536141780 

"1.59799404991 ,447650346699 

•1,09342661603 ,130010326169 

1,39487372006 " , 98 1 7 46772594 

1,81089730817 -,845907079566 

,907089863833 ",436880465640 

*,927466182938 1,16557156962 

•,678860183791 1,04157038802 

", 746645508153 ,713644914870 

,290283524188 *,972270379003 

,373782706620 • ,94088507 080 1 

,455250500738 *,720823985376 


2,28755510957 *,171955056607 

1,66301100432 8 674i63855421E*0l 

,687700644000 ,492433823383 

*2,02967593061 ,294364726289 

*1 ,564538001 35 ,834155002966£»Ql 

",767657990480 *,379568064906 

1,71463806561 *,502174646994 

1,36836726293 *,315755213722 

,748700141381 ,6695l8565941E"0l 

-1,32759908204 ,959476796984 

» 1 ,06939528482 ,656639546878 

",676165876506 a 186799166884 

,898098471719 *1,13639652252 

,834062597690 *,898137273951 

,602016241661 *,462412061988 

*,326859054735 ,970924941197 

*,41179938304$ , 86267 8637 16 3 

*,484587020544 ,512612845084 


CO 


« 



Co 

-p* 


REDUCED FREQUENCY » 2 

N o 1 

■1.18406028075 
•,922852427123 
*,175412087613 
1,26014692370 
,934788544921 
*287788977510 
■1,16265017167 
•,877393897747 
*,364079920461 
1,00321964958 
,039230748308 
,467544752142 
*,787039123727 
*,716770609419 
•,544532680152 
,424819441455 
,431106011326 
,457295759510 
No a 

•1,12604922014 
*1,09751736049 
*,870890581906 
,771050273573 
,75262839469? 
,733942619409 
*,766349e01788£*Ol 
*,244972335073 
*,497573440756 
-,398067194359 
•,206908724629 
,177120721404 
,585376348630 
,436285806883 
,143784758960 
*,343835184621 
*,3 S06488A9606 
*,313695010235 


,80000000000 


555129832677 

479157868345 

486810716116 

412121433981 

358562737994 

394500203093 

142203136508 

154636596U0 

212913304674 

4O4123193550E-O1 

9732217653492*03 

551874615245E-01 

166984103735 

149076067054 

633620757 172E-01 

264617583156 

255322209476 

149706875870 

£06230938748 

350301 084075 

905625199114£*O1 

456868833202 

449799394519 

205427839057 

592897425897 

513901878315 

329839279081 

417041228399 

41647 469407 6 

342521 t 1 1046 

151071248270 

164736656419 

103876705972 

159644099207 

105640555451 

2»90758U59a7£*0l 


1,13528050293 
,586860219666 
*,298087021575 
• 1 ,15330461 166 
*,646116936406 
,137129737952 
1,05439994413 
,655580851000 
,2730l730679i£*0l 
*,943755628101 
*,6050 12050545 
*,221751759352 
,763807307344 
,646557883241 
,401447109039 
*,427378694719 
-,443694244372 
*,440820397634 

1 ,15280200107 
1,01464305626 
,620040389509 
•,748730931679 
*,756468261809 
•,629950834896 
,139685780654 
,363613678183 
,375514110054 
,326472473123 
, 2584349627346*0 l 
*,358324682879 
*,536757499485 
*,297797437584 
,3675635241956-01 
,344431903549 
,351516772725 
,236084261551 


,531 539688061 
,466903046161 
,497931601606 
•,380315554426 
•,371624705235 

*,405205031462 
,143687181840 
,187915782985 
,244210209124 
,26640 1431 037E*01 
•,25l477661552E*0i 
*,111359810486 
•,157910550746 
*,120566111169 
,98268408467 8E-02 
,266546219969 
,215892751377 
,7376178078 56 E*0i 

*,336301342025 
*,2666432251 18 
,174664996278 
,482867767064 
,359104647010 
»,3114076t4955e«0l 
•,564286633268 
*,442628602850 
*,156143012162 
,420106291344 
,389644021865 
,260653084692 
*,160635705439 
*,171310672342 
*,191953074006 
•,138757616670 
*,670232592533E*O1 
,233900029627 £-01 



Ns 3 

-,796i32e209iae«oi 

-,245241408379 

-,652390674490 

•,452433053409 

• ,27991 1 SH 493 
a 198804100330 
,es6ai4oi«t3i 
,587588133559 
,327721338423 

•,418673333738 

• ,4598844631 58 
•,435386925862 
•,156042595844 
•,333141773422&»01 

,173429948317 
,374590693610 
,3201 38575805 
,156462567008 
N * 4 

,911238434692 
,993769998860 
,592060914168 
•1,071 60409536 
•i.lS243455l2l 
•,951655161737 
,416903884068 
,573004230876 
,709876843296 
,407343757335 
,276237338645 
,36207 557 6629E«*01 
-.280243671189 
•,310540139424 
-,279146543587 
-,216063836013 
-,155567022522 
-,5i615466felb3E-0i 


,861286628078 
1,23097278101 
1,1888746810 9 
•,771451225847 
•,941133712066 
•,933276603630 
,228455224020 
,343234215611 
,452696741220 
,273237280682 
,207343741276 
,2909622796306*01 
•,359774763771 
•,350103784131 
•,249439560057 
•,1142209639456*01 
,l3S9308S89SSe*0t 
,9139605364266-01 

,177497766414 

,859871535608 

1,26467735242 

,190584659136 

*„at5l385654S9E-01 

-,403124514415 

•,688847488610 

•,659534136877 
•,434980901669 
•416402283048 
,451595839808 
,385676158507 
, 177655971781 
,131862626689 
o 43652669283 IE-01 
•,142902655550 
•,140232904301 
•,0634lo719496£*Ol 


LO 
L n 


,131106121151 
,450663040598 
,768918554308 
,417769917304 
- - ,-565320 1067 1 SSw&t 
•,460332046846 
•,799921461179 
-,938900213147 
-,454709280076E-01 
,430070729945 
,480704019096 
,374922770717 
,112931193148 
•,6402688945446-01 
-,276471243452 
*,359933650602 
» a 248333449615 
* t 621759l909l7E*Oi 


•1,05657543043 

•1,31494846723 
•,79695031 1419 
,643291516103 
- -*,0^307453833 
,705833896035 
•,264290948782 
•,412679362065 
•,450808416697 
•,234X39870472 
•,135842424300 
,995797780788E*0i 
,364307571746 
,308330999826 
,156604326512 
B 17219?249267E-02 
®,480756a50nSE-0i 
® s 109312970800 


•,999600150973 
-,846497691376 
*,221466260217 
1,12513570737 
1,1 1058709209 
,616836145253 
*,473464569220 
*,678868772907 
*,638348530575 
•,362045997468 
-,165402906500 
,133783813016 
,291075423202 
,314940846888 
,202543843993 
, 194861612105 
,100164393294 
•,2811832733436-01 


-,471193768354 
*1,17777282656 
-1,15247611314 
9349220597 34E-0J 
,261653292009 
,569716675941 
,665616885195 
,593917387030 
,125692257491 
*,430209280504 
*,440907393068 
*,265877707637 
*,162225447701 
-,944935987963E-01 
,4296U417734E-0i 
,143502542320 
,123484900569 
,3306600500706-01 





& N e 


N s 


3 

,739658869465 

1.20670555565 

1.24626107246 

<•,443532621367 

",630454003941 
-i .077947 32094 
®, 55609485773? 
",363151999956 
«.263251792160£o01 
o 496006 1 29956 
5)536694085065 
,447773027477 
,107633176849 
,145233651231 
,496841 29 ()86o£»Oi 
»32t2l68£84i7e«01 
,SS7fi66295S99£^0l 
»,S4733a«46l90£«0g 
6 

,262409632276 
,669092912912 
1.16115568464 
,105287274511 
«• 236072170704 
**,641073420632 
976687292931 
•* 922898047610 
",591262684999 
,113668710046 
,207342465552 
,26870331459? 
,6604508379236-01 
,6277379816956-01 
,1988093038216-01 
-,4302069129286-01 
-,3611978703676-01 
-,1888969959616-01 


-,787865680954 
-,203706811475 
,269872081086 
,996164515648 
1,00557717894 
.737642401321 
-,739350746089 
-,698090801330 
-,813393545075 
-,218366309296 
-,151148365026 
,196960328817EwOi 
,199954931799 
,186992278790 
.115257893249 
*114853695048 
,88004 1492353£w0i 
,302260S25022£-01 

»1 « 102271 37090 

-,753920491467 
-,414976298148 
1,12688727949 
1.37619936596 
1,24333744336 
-,302970463542 
-,496338679496 
•• 614207836731 
-.443693026751 
392967437373 
-.182745624973 
,2949029440916-01 
,5015266180946-01 
,653906310700£-01 
*, 2932610463956-02 
-,577 142361922E-02 
1 5441 43 86935S -01 


*,997674182288 
-1.29385736681 
-1,00209732764 
,632708888420 
1,00116678875 
,991415475160 
,494610516975 
,225268779592 
-,220483497748 
•,516309118477 
® ,5237 17 682543 
•,276028638329 
-,173584251250 
-,1040877 12977 
,253750989600E»01 
a, 2456143933256-01 
*,28 93 927722286*02 
,7l9l24972229gaGa 

-, 581460709884 
•1,06671679303 
*1, 08731456459 
.322248416263E-01 
,457692588354 
,758676926944 
,966302169782 
,810584594356 
,221222003428 
*,151267501867 
-,255380312642 
•,234314398667 
-,6596051 153866-01 
-,4990240484176-01 
,3424534555496-01 
,4094468237086-01 
.2862176 48 419E-01 
,7 8289 15494846-02 


(555127048046 
• .56084033 1465E-01 
*,508080949347 
-1,00208042124 
*,961379493959 
•,302474968988 
,806840697579 
,914612654173 
,588183378216 
,193047055471 
,8391972335176-01 
- a 1 50604328285 
-,198079485922 
-.159310745673 
-,3060011051146-01 
e,106047H2650 
ra (,62450927697 96-01 
,4472098608946-02 

,955364057496 
,61725493238? 
,8616258959776-01 
-1,22864360588 
•1,42169660405 
c, 806666725630 
3 38b339528009 
,381858876804 
,580532698786 
,430026779221 
,314399629539 
7665050443976-02 
-,3786706849556-01 
-,6145164860766-01 
-,5613160557336-01 
,3694343800646-02 
,9489951 467 11E-02 
,2S25634100866-01 



N a 7 

•1,23892428766 
,8041300^7692 
1,02132704747 
1,32147749551 
», 738279441672 
•1,61278439336 
•1,32277443503 
, 555920 1 08392 
1,36323191143 
1 o2722Q065315 
•,304521807269 
•1,41801651513 
® 1 a 0489357337 1 
,100489740188 
1 0 Q9? 36530601 
,599765382381 
, 3846360 i7273E»0i 
•,619191614091 

N a 8 

• 1 p4l5?466§625 
,370071517727 
1,97421307415 
1,01020133526 
», 143532519121 
•1,37627289994 
•,317654863557 
•,224310129802 
,440890097543 
•,277850842421 
,395352286521 
,402723980585 
,577635329119 
•,291405890567 
», 75988912206 4 
•,467132364662 
,6U1023515390E»01 

^ ,533337242143 


•,830025999319 
•,257353249568 
, 3163609038 J9 
,544813625149 
,219240080441 
•,230884120099 
•,197070822167 
•,130266333291 
a S94939312?88E«»0i 
• 9 610143861214£«01 
,5355O69309l3E»01 
,64iQS4669445E*0i 
,332499038166 
»,4551834U802£bO1 
•,193857551242 
•,272616405495 
, 69200024920 1E»01 
,260064631155 

•,744396878026E»O1 
•,603918662038 
•,891821303559 
•,321078653595 
a 4086657 16277 
,862425613649 
,541777810341 
• # 165806iU2368 
•,745442243279 
•,440115750373 
,40313S976063£«O1 
,492858767628 
,164185037191 
,27l307l93286£o0i 
•,145282791390 
, 129044692884 
«,740146512l69g>01 
•,153851478122 


ORIGINAL PAGE IS 
OP POOR QUALITY 


,429784405106 
•1,67426018869 
•,591511786264 
•,470655120168 
1,60798998900 
,689144537652 
,565305097186 
•1,41971509141 
•,868019691077 
a ,6445745 1 9141 
1,12897023791 
,977364632275 
,610476560350 
•,775437473906 
•,900611368011 
0,393466996059 
,348659907639 
,652705785615 

,756330390688 
»1 ,4458746 1 469 
•1,51166132537 
•,569373969517 
,896413534168 
1,21291404669 
,312666583304 
•,5621 775563096 ^01 
•,690947437599 
•,234571094669£»01 
•,567520818095 
- ,713764804666E«*Gi 
•,223735257847 
,701332192349 
,306029897107 

, 2622?! 593031 
*,373141809809 
*,472969064203 


,578303529531 
• e 516S86189669E*0l 
•,470237233002 
*,409823203598 
,1142609220026*01 
,371878639503 
,183562503911 
,3004965798316*01 
*,196485593453 
o 131756506429£»01 
6623522343b! 6^01 
,2284327 80519E«01 
®, 118479974744 
,172610931963 
,93975S648642£»0t 
434006825301 
® ,228425564049 

8,165751668727 

,2337 13091718 
,916331995597 
,315134675309 
,406102566535£»01 
*,793502569243 
•,407078580943 
*,262524116584 
,570? 0654301 0 
,482293983049 
,258028513485 
*,339583342879 
*,410326490001 
*,112455261438 
,613619473B29E«01 
,196976497122 
»,497b05i37b»bE*Ol 
,165224543382 
,495839951 194E*01 



9 

-,833951040821 
-,349066267960 
1. 11272290503 
,1605426495356*01 
,526174970189 
,4691933122346*01 
,625339267927 
<*,510948623771 
“UO2502674O42 
- 8^72242162394 
,11363350441? 
,780615148302 
-e94660641438$E(»01 
,247903042375 
,130490529730 
,346998922430 
°s 167819S40&06 
*,309031427399 
10 

,310314560374 

-.738707486536 

-,838030378177 

-,935166343304 

,611423926309 

1.78443592347 

,677954070690 

-■873?4346523feE-01 

*1,22054179028 

,150811002328 

-.286653290864 

-,33169955255? 

», 235397902539 
,6203b32l6262£»01 
,433446525867 
190938648969 
,143598680967 
,296382787571 


,061038961366 
-,546465260734 
•2,40543013455 
-.939327149703 
,184571664751 
1,62362322138 
,492700409190 
0124406539661 
-,523627200342 
,119016929550 
®, 19782S94S748 
-,209396740761 
e, 303S7§47 0302 
9 789126706421E-0| 
,401343776972 
e 34?eS54319l26*0i 
,390026? 34725E-01 
-,7? 130l32£684EaO2 

1,03594295459 
,391375469222E-0i 
-2,602901 10774 
-,603099802514 
- , 357720009627 
,738294436069 
-.259282507930 
,402499526381 
.78780937645S 
,409260709466 
-,100674254675 
-,595408684799 
• 8587535329306-01 
*,64«691222749E*01 
-,180708533417 
-,118517347645 
,3i4229074848E-0l 
,121339825914 


,702455004525 

-,330703030445 

•1.41116696684 

-,263764971945 

'-1,478984787332 

,491131571295 

-.161175529254 

1,00400398644 

,491086745962 

,259798164586 

-,523863887497 

*,669532086794 

-(,6399752885876*01 

-,297169563635 

,119039041630 

-,142443084342 

,430504981383 

,329871079513 

,107887331767 
1,08734113664 
,104609304902 
,350785357690 
-1 ,487 38546035 
-1,13824468043 
-.423792859447 
,747867232973 
1,08944923533 
, 425359637 094E-01 
,417674320087 
,5862621169316*01 
,131965148913 
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,344360908178 
1.62860300652 
2. 24170497830 
,1463104 5 27l3£*01 
,287367135415 
,638916722912 
*,216901455921 
*,900293444663 

*,790181719045 

",19172627904a 

*,698448725653 

•1.05498363671 


*,495659509062 
,673009850220 
3,86929215601 
*.4O1436950371E*01 
*,893605402743 
• 1 ,92592988350 
,161054039945 
, S7 37620401 54 
,694918193363 
,l4227306?i82E*01 
,4864877486036*01 
,114858236272 
*.605l46064766e*01 
•.2570571134S0 
* , 35041 1174750 

»,389572887819E*02 
*, 2150951 8949 lt*02 
»,ii2202441H5E«01 

*,369705239611 
2,01382773745 
4,82354408386 
*,179088903849 
*1,39685175196 
•2.43866100315 
§ 66084867 2325E*0 1 
,153649387739 
,194502640204 
,5922862933326*01 
,248686254227 
,286433418874 
,3000876l940tE*01 
, I06l66g3f'flu9 
,104415751829 
*.1718619553876*01 
".739! !?682131&<*C1 
*,70U640398679E»01 


*2,87541737769 
•8,50642658340 
*6,57041507574 
1,92806154139 
3,73320168411 
1 ,95883738078 
,6846823640436*01 
1,17643352128 
1,60053773508 
*1,16655235183 
*2,00171911531 
*,978504256971 
,42 1090961 57 OE»Ol 
",441738608842 
*,990261485245 
1,06250729681 
1,70546834270 
,899111791900 

*3,48607694429 
*9,18891516460 
*6,45300598956 
1,05931470071 
1,46596221805 
, 37 9S3222 1 8 3fe 
,852018014294 
2,20051736355 
1,51616750659 
,102435920139 
-,493346197272 
,630451938638 
*,617644407731 
* ,97 342321 1 982 
",329026509094 
-, 568655165069 
*1 ,08415127465 
",736519190802 


*,605773390217 
2,09477665869 
2,60110866096 
",287776438584 
•1.60413596199 
*1,60591013566 
,390941074215 
,716506825604 
,460431613167 
,31812b88i064e*01 
,85758222879lg*01 
,128312867464 
*,167050761202 
*,284936124736 
*,152744482983 
*,2lb342547330E*02 
*,2584367495866*02 
*,27 32 1827 97 7 0E«01 

,124641207285 
3,96347226724 
3,94469465463 
*.646433631113 
-2,18403396177 
*1,86153309020 
,119694377381 
,197368054394 
,9354689589392*01 
,160362793132 
,303934522257 
,191721974936 
,826755899295E*01 
,116418960283 
t 715878401022E*01 
*,465040326244E*01 
»,821 921 00361 3E *01 
*,372371734121E»01 



■1,25350090289 


», 537 3297 054 30E»01 

-3,71203601787 


,795693424585 

■8,63738380277 


3,18709700269 

•9,09918650889 


5,55171521870 

■9,29321368711 


6,44387026849 

•6,03210128957 


'5,0081237 1 430 

,132035207396 


•,217327498869 

,181654210220 


-,717609728448 

■,147087732781 


•1,45744335802 

•,527326993842 


•2,22992503080 

■,763692701072 


•3,451 48226366 

*,783142497465 


•1,91928456150 

,8691347140746: 

-01 

9 ll37l4l73761E-02 

,345509740347 


-,673157251502E«01 

,7 487 8049879a 


•,143593697250 

1 ,04955359247 


-.169180798240 

1 ,07209119432 


•,16281661 1284 

- ,690765590064 


• ,1261 12857 337 

,161194997335 


o,951 37 B222562E-02 

,504697776149 


-,304040785394E«01 

,83 0736811218 


•,l7O70fl266417fc-Ol 

1 ,00583553284 


,14361427990St-01 

,941865884394 


,333498 55 6474E-01 

,565680866534 


,356364984l99E»0i 

, 17425523639? 


( ,il90956659l5t«0i 

,502659693942 


,34088434207 IE *01 

, 7645836632 1 3 


,463641180350e«0i 

,896779546939 


,5617993094896-01 

,626000116433 


,527837486007? *01 

,521188929241 


,342806962994E*0l 

,9965350601022 

■ 01 

,214641372069? -01 

,282318080605 


,60151764S717E*01 

,422307778689 


,7966284922136*01 

,495799479395 


,8449622265926*01 

,467509270789 

36 

"1. 24771125105 


,7171 307 137156*01 

,3325 13258288 


,415922844519E»01 


,7450972075232-01 

*3,71037623497 


1,18377932883 

■6,50455206429 


3,84650471887 

•6,76053281578 


6,42609268433 

■8,85175780591 


7,32187329671 

•5,64212658421 


5,56892620425 

9.8187A7289332E 

■ 03 

o,20757 2784826 

*,236303575324 


9,666483120608 

0,859875638253 


•1,35010676050 

•1,42933311868 


•2,08492072188 

«1 ,62138062 1 33 


•2,30377836837 

*1 ,29141320800 


-1,70520218993 

■ , 12296276726? 


,94937 1275486E-02 

-,273169066029 


«,47S462621787E»Q1 

■,206336«66316 


-,134321753177 

* , 600602 l 1 9395E 

-01 

*,184031367869 

,8178537159832 

•01 

=,194504121053 

,136158252542 


-,155916674548 

■,105199485623 


•,t955676446fa6£»01 

•,253387094979 


*,59i0Sa532338E«Ci 

«,291475721S?4. 


- q 591453083879£oOl 

-,261583385553 


*,364425717 11 IE *01 

-,l?347624993g 


•,143980567822E*01 

-,7853647357 32E*0i 

,5625576298796*02 

-,658510214324? 

• 01 

-,1295667979026-01 

-,172818674517 


-,3403227610026*01 

-,219621825134 


*,4661085286766*01 

•,200821394401 


-,428582296399E*0I 

0,140212153395 


•,305372671585fe-01 

•,6644146991336-01 

», 1304734099556-01 

•,3253896017 136 

• 01 

•,7992550l9877£-02 

*,B69945127Q72E 

*01 

-,2142784833826-01 

-,110264575296 


•.328811956846E-01 

-,9S7S908414tfeE 

-01 

-,3287774858246*01 

631446892243* 

• 01 

•*2457 11 521077? *01 

-,274316fc7518ie 

-01 

*,1257383225586*01 



APPENDIX C 


COMPLEX MATRIX L-U DECOMPOSITION PROGRAM, LUCMAT 

Program LUCMAT performs an L-U decomposition of the complex matrices 
generated by program SUBCMAT, the subsonic kernel function matrix element 
program. Normally, LUCMAT is run as a job step subsequent to the execution 
of SUBCMAT in the job stream for flutter analysis. The factored matrix is 
independent of the structural modes. 

Program LUCMAT is set up for dynamic storage. It calculates the 
required central memory field length and reduces the field length to that 
required for execution. Approximately 14,500 o + NCP*(2*NCP + 1) words 

O 

of central memory are required for execution (NCP = order of the matrix = 
number of collocation points). For NCP = 36, approximately 22,000g CM 
words are required* 

The absolute binary program is stored on the permanent file system 
as an indirect access, semiprivate file named LUCMAT (the overlay file 
name) . Access to LUCMAT is obtained by the control cards 

GET,LUCMAT/UN=052061N ,PW=LUCMTVl . 

The files declared by the program are (in order) OUTPUT CMTAF and LUF. 
CMATF is equivalenced to TAPE8 in the program and LUF is equivalenced to TAPE9. 
Prior to completion of normal execution, file LUF is rewound. Note that there 
is no INPUT file. Program LUCMAT reads only from binary file CMAT which is 
described in the documentation of program SUBCMAT. File LUF c onta ins the 
factored matrices as a single binary (unformatted) file for all values of Mach 
number and reduced frequency. The OUTPUT file is used by LUCMAT only for 
system error messages. 

A short program called LUFPRNT reads and lists the file LUF, and serves 
to document file LUF. A listing of LUFPRNT and a portion of its OUTPUT for 
the sample case are presented in this Appendix. 


Control Deck 

A typical BATCH processing control deck for executing only LUCMAT is 

BLUCMAT,T0200 ,CM023000. BLDG648 YOUR NAME 

USER, . . . (your user number/your password) 

CHARGE, . . . (your account number, LRC) 

GET , CMATF=SAVCMT . (get previously saved CMATF) 

GET , LU CMAT / UN= 05 2 0 6 IN , P W=LUCMT V 1 . 

LUCMAT. 

SAVE , LUF=SAVLUF . (save LUF file as permanent file named SAVLUF) 

— eoi — 
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Generally, the L-U decomposition program is run as the job step after 
SUBCMAT. Only the -L-U file is saved for future use as it is the fundamental 
structural mode-independent file. A BATCH processing control deck for this 
case is 

SBCMTLU,T0600,CM023000. BLDG648 YOUR NAME 

USER, . . . (your user number/your password) 

CHARGE, . . . (your account number, LRC.) 

GET , SUBCMAT/UN=05206lN,PW=SBCMTVl . 

GET ,LUCMAT/UN=052061N ,PW=LUCMTV1 . 

SUBCMAT. 

LUCMAT. 

SAVE , LUF= SAVLUF . (save the LU file as a permanent file named 

— eor — SAVLUF - Caution: This can be a large file) 

INPUT DATA (for SUBCMAT only) 

— eoi — 
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Listing of Sample OUTPUT 


4AFQBIC, 7B/QS/0a,NA8A/URC CY175-T NOS 1.2 (T1U 


1 4. 05. 46, LUC M AT f T0400, CM060000 , 

14.05. 46, B648 RB R M BENNETT/EXT2661 29 

14,05,46 l UB£R|052061Nf, 

14.05.47 , CHARGE, 100658, LRC, 

14,03, 46, SET, CMATPbSVCMATB, 

14, 05, 53 .SET, LUCHAT/UNa05206lN,PWa . 

14,05,56,LUCMAT, 

14,06,09, ENO LUCHAT 

14,06,09, 6,395 CP 3ECDND8 EXECUTION TIME 

14,06, 09, SAVEiLUFsLUFB,’ 

14. 06.16, UEAD, 0,002KUNB, 

1 4.06 . 1 6, UEPF i 0.390KUNS, 

14.06. 16, UEM3, 1,J14KUNS, 

14.06.16, 175 CPU SEC a UtCP/S 

14.06. 16, UECP# 6,4858EC8, 

1 4 .06 . 1 6 , AESR , 23.436UNTS, 
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Listing of Program LUFPRNT (Prints File LUF) 


PROGRAM LUFPRNTC OUTPUT = 1008, LUF a 10008, TAPE9 = LUF) 

******************************************* A* *********** ***************** 

ft 

PROGRAM LUFPRNT RE4D8 BINARY FILE LUF CTAPE9) GENERATED BY PROGRAM ft 
LUCMAT AND PRINTS ITS CONTENTS ON THE OUTPUT FILEt * 

ft 


******************************************************** ***************** 


5 


10 

SO 

30 

100 

101 

102 

103 

104 

105 

106 

107 

108 
109 


COMPLEX CL(36,36) ,CU(36,36) 

INTEGER IDC6) »INT(36) 

READ (9J ID, BREF, VOLUME, NM,NK, NCP 

PRINT 100, ID 

PRINT 101, BREF, VOLUME 

PRINT 102, NM,NK,NCP 

DO 30 M a 1 , NM 

READ (9) EMACH 

PRINT 103, EMACH 

DO 20 K * 1,NK 
READ (9) RF 

PRINT 104, NF 

READ (9) CINTCIRJ, IR a 1,NCP) 

PRINT 105, CINT(IM), IR a 1,NCP) 

PRINT 106 
DO 5 IR a 1 , NCP 
PRINT 107, IR 

READ (9) (CLCI,IR), I a 1,IR) 

PRINT 108, (CL Cl , IR) , I = 1,1*0 

CONTINUE 
PRINT 109 
DO 10 J a 2, NCP 
IR a NCP*2* J 


page is 

0F l 00R QUALITY] 


IRL1 a 1H» 1 
PRINT 107, IRL1 

READ (9) CCU (1 , IRL1) , I a Ifi,NCP) 

PRINT 108, (CU C I , XRLl) , I a IR,NCP) 

CONTINUE 

CONTINUE 

CONTINUE 

FORMAT ( 1H1 , ///ft LUF ID a *8A10) 

FORMATC/ft BREF e*G2G,12* VOLUME **G20,12) 

FORMATC/* NO, MACH NOS, a*I4* NO, RED, FREQ, a*I4, 
ft NO, COLLOC, PTS, a* 14) 

FORMAT (//* MACH NUMBER a*G20,12) 

FORMAT ( 1H1 , //* REDUCED FREQUENCY aftG20,12) 

FORMATC/* INT ARRAY*/ (4X2014) ) 

FORMATC//* L MATRIX*) 

FORMAT £4X* IR a* 14) 

FORMAT C4X,2E20, 12, 8X,2E20, 12) 

FORMATC//* U MATRIX*) 


END 
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Listing of Portion of File LUF (OUTPUT of LUFPRNT) 


L.UF ID n SUBSONIC KERNEL CALCULATIONS USING L»U PROGRAM • FUUT, 8UPP, W, » 6 X 6 NOMINAL 

BREF a 1 ,0000000(5000 VOLUME ■ 1 ,T2«78773«8 1 

NO, MACH NOS, # 1 NO, RED, FREQ, a jo NO, COLLOC, PTS, * 36 

MACH NUMBER a ,6(5000(5000000 



SEDUCED FREQUENCE * 2,60000*00000 


INT ARRAY 

36 36 36 35 35 33 33 S3 32 33 

25 24 26 25 26 36 36 36 36 39 


L MATRIX 

IR * I 

•,7986195019326+00 •,4?69l2555098E«0i 

IR a ? 

•ol 16406028075 E+ 01 «*, 5551 2983267 76 + 00 

TR a 3 

• ,U 26049220 UE+01 ,286230938 7 46E+00 

*,1854257989866+01 *, 1946176092S9F + 01 

IR = a 

•,122*>S00902B96+01 537 3297 054306-01 

,3 7359898287 16-01 .852722 3 7 957 06-0 1 

IR - S 

,9j 123643469PE+00 , 1 774977664146+00 

.57 1 374 3056 15E + 00 . i 005585724696+0 1 

<•,6983066636558-01 ,1313615998236+01 

JR a 8 

,739638069485E*OO -,7878656809546*00 

,1 04358 596596E+01 , 5l 3677 324 l 99E+OQ 

•,4058096237 3?6+00 9 1 399097 32? 46+00 

JR a 7 

»» 5095 34380 255E+00 -,6546908237446+00 

-,2267 04? 37 2726+00 ,1252981747546*01 

19385452 1432E+OQ ,284069097 1 735*00 

• t 696270286331 E+00 ,2571896212872*00 

JR* 8 

W,l?3«9?4 287666+01 *,0300259993 19E+00 

,280330396035^*01 ,3604920196016+00 

-,224673326523E+01 -.7 7 0267 44006 96+00 

,741678865284 F*00 -.6926446467186+00 

IR a 9 

a, 14157466 2629E + 01 7 4 4.396 *7 8026P-O 1 

,21629979997 J £ + 0 1 - , 97 94 1 7 1 65933E + 00 

•,131492290 3636 + 01 #2568l622'3 9l4t + 00 

+,694369 38698? K+00 -,107753918219^+01 

.ill 61 77 r66«8f +00 ,298056)222918 + 00 


Ln 


ORIGINAL PAGE IS 
OE POOR QUALITY 


33 33 30 31 31 31 31 1\ 28 25 

SS 35 34 34 36 36 


.182975099355E+00 

,4333108974446+01 


,29flt94759374e+0l 

,464495169837E400 

•.388760319569E+01 

,1412031687666+00 


*,2625688 46 123E+01 
,4339552017986+00 
•.763411798088E-01 

,1749717149356+00 

•,1414046i8204E+01 

-.7513244418326+00 


.48087057 15466*01 
,1040143740146+01 
, 10 t 4 l 6328 batE+ 0 l 
-.2179331 170686+00 

,5080570283226+01 

,5082859655606+00 

,0856459209296+00 

,2260779140186+01 


• # 462292605296E*01 

-,2065911840116+01 


, 1622742905586-01 

-.4566176986226+01 

a, 3069430831 llE+OO 
,3621519784066+00 


,3502559325396+01 

,4504915553736+00 

,3471524389296+01 

,4310645341566+00 

,2774468509986+01 

,4383636714056+00 


,21 3264391314E+01 
,3274137651796+00 
-, 3090245606256+00 
-.2132660056176+00 

-,6294179865936+00 

,1446958453296-01 

-,7558659703986+00 

,3934331427966+01 



T » a m 

*,H7474879a027E+OO 
,65?24A9gn32oE-0? 
*,2357600122266-01 
-,4l922363248nE+00 
# 9l3098ta6919e«0i 
I« » It 

,3l0314S60S7aE+no 
•,15279lb8406Te+01 
,ta5983U9<» < 9tftP + 0t 
*,ao5ii03327a3e+nj 
•.696205339337E+00 
„94046i7n7464E*OO 
19 a 12 

,102909430214^+01 

•*,105531 Ortfi47 5 E + Oi 
,1398b2513l27t+ni 
*.707237l39aO?E+OO 
-,30fl037057952E+01 
«4640ft32i0394fc+On 
IR B 13 

*,1 t2702239?84£+ot 
.268545607890E+01 
•,7304426ja$7TE+<M 
,66675994a0iit+Oi 
,314721778172^+01 
,H8238?5?11Tfe + oa 
,7$$54543i9O0£*O2 
l» s i a 

*,16091 50i>aai5b,+00 
*. 6066670290476+00 
•,7581999480375+00 
•,2t>04g7ll3508t + 01 
*,6733118<11906E+OO 
,6183716512925800 

.2289711910526+01 

IR a 13 

*,1482912241745+01 
,53«91?325340P+01 
•,94904h9b4Hdi £*01 
t 249(5070 tJ i785?E+0l 

•,775155589^875+01 

, 1 2000242353oE+0t 
,4831532510778+01 
*,0t 0620250 lOa&.-rt 


«,4956595Q9Ot>2E+O0 
,719284092495^4,00 
,1047002804276+00 
•,1075140274186+00 
«» 251 70S367 3565 *0J 

,1035942954596+01 
«» 7462208126476+00 
•,9903622361302*00 
,1433067671816+01 

*,490466155488E+01 

, 108201514936E+01 

,45«1230510966+00 
,8076373422516+00 
•,2206149031616+01 
,2341938117056+01 
•,3315996272786+01 
**,107516727 1916 + 01 

,6082436385402+00 
•,27t46t49S868£+01 
•,1021559765492+02 
•,5824255992306+00 
-,1462221601946+02 
,1310687061236+01 
•*22122997247 IE-01 

•,7254104962026+00 
. 17254O1O2661E+01 
,5534003359036+00 
•,1257602696296+01 
•,2^62090 67 6&4F+00 
+,1636659753676+00 
,ll5793677926e+01 

•,3393855737712+00 
-,832352B6S37tE+00 
•,8622448768312+00 
,4799fllS955l2E+00 
,?O2279269383E+0l 
», 1 03799S28464F+01 
,1 i77O9265402F+ni 
,/677SA909492fc-»ri 


,1468874604246+00 
•,4624418760666+00 
•,1605936245616+00 
*,8736689416556+02 
,4129924961 18E+01 

•,1625205941056+01 
*,4779715510346+00 
+,41258461 30376*01 
,718t396M 387E + 01 
*,3106514290386+00 


*,3952481208326+01 

,5275159770776*01 

+.6056025750666+00 

,289bb7512189E+0l 

*,4182247326446+00 

,1621016258916+01 

,8527377121 17E+00 
,8382315330826+01 
•,2174200004666+01 
,1075443214806+02 
,9145589999776+01 
,1352308377606+02 


,1469671087176+00 
*,2765539003356+01 
*,2359058329936+01 
,509899632949* +00 

*,5987149837986+00 
.4308213603726+00 
*, 9602273924746*01 

,4184003989722+01 
,5895137321636+01 
*,3846022842908+01 
*,8895344726486+01 
-,6755241361246+00 
,4436088180666+00 
- ,80422857 BS721- +01 


,2107481571136+00 

,1659751903626+01 

,1735696152026+00 

*,3803305254866*02 

,2240943314306+01 

*,37 690467 9655E+01 
,1192370324386+01 
», 1609725132342*01 
-^4277485634996+01 
,'896361 98999S6 + 00 


*,136470521697E+01 

,1723073727036+01 

*,1372S982S630£+01 

*,7b2015b202B2E+0l 

,6262527405386+00 

,4427979385286+01 

9,6086830073406+00 
«,9O7127390498£+O1 
*,141 0405061 60E+02 
,3412646225656+01 
-,6346»1768743£+01 
•,8986049177516+01 


,6396869770406+00 
# 3690OiOfeu774E+Ol 
.817146306534F+00 
-,39»904609696fc-Ol 
, 107966969982E+00 
*,3057476746496+00 
-,1588747660106+00 

,2649717396676+00 
-,1037827009106+01 
$4396677 1590E+00 
-,-2240792336836 + 01 
, U6l2077099$e + 0t 
» i 770733270O89E*OO 
, 1 I564b00gl36t +02 



r« « 16 

». 133 a« 60 a 2 U 6 E + 0 i 
,3$a?6042939aE+M 
*,7678350269036+01 
.sa^aflosH^sae+o j 
•,1343309095046+01 
* 8 3695i744247lE+0l 
-,7661567679726401 
' s #133745410147€ + 02 
IR a 17 

",5496711034086400 
,2920699338906400 
",2493372576871*401 
,0149993508256+00 
,5830653456936401 
-,67l578627l6lg+0l 
-,2426649982006402 
-« 106-3 < §4P379b5& + 0? 
",04g639394fe4!£*Ol 
IR a 18 

.1970863109Q3E4O0 
•,2436i0646l38g+ni 
,2827476388436401 
*, 9036467707096+00 
,1000627940146402 
632010771 7116401 
•"93438323654042402 
-.2277847436306401 
« t 9O109fe49h3O6fc4Ol 
19 a 19 

-.1248316244615401 
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-,2254819850796+01 
-,1237 695279475+01 
,2032477205096+01 
,1975824275418+01 
, 17891275069 6E +01 


,97 595952 4699g«0i 

,7U054J22360E + 00 
,58245061 022 8E+Q0 
,127455398602E+00 
•, 162346254158E+01 
•,i09038329l9HE+0l 
-.254121954691E+00 
,173881413120E+O1 
, 142454237607E+01 
,56086 1683035E+00 
-.123784205907E+01 
-,99193i471712E+0O 
-,618620638206E+00 
-,144903354367E+00 
*,4b67i284S2iaE«02 
,32737 0500434E+00 


#21 19446821 33E+01 
,1320392629956+01 
•,216038195580E*00 
.359270315769E-01 
,169898b76479E+00 
,249491 3297 86E+00 
.131121885609E+00 
-.1739353127956+01 
-,1258767266336+00 
7 82499455 495E-01 
- e 3O4248314049E-Ol 
,1658480499606+00 
, 149046097824E+00 


a 



863621412031E+01 

502B58282362E-01 

544964701364E-01 

72617S597644E-01 


- o 741623582298E+0O 
• ,684U9091314E + 00 
.122786576903E+00 
,43066766337 6E+00 
t 30S927U4l21E*0O 
,110581499157E»03 
a 4221965270t0E*0i 
,665804576503E-0i 
fl 722lS7lS4862E-0l 
.4604452O3772E-O1 
•,73555l010913£-02 
4 92288567 990E+01 
-,339199074793E-01 
-,10913802905BE*01 
, 766869007325 E -01 
, 709921S14690E-01 
,3762364290976-01 



XH = t 

,30 1963474319 E+*t ••,7684367S6932e*00 
,7302*007981 lE +01 *,«7142o?l2906E+01 

,477 1501 4050<iE + oi *,4} 7837297 0995+01 
,1569311314496+00 ,543537629254E+O0 

, 1042060* 1663E+01 ,1733285039455*01 

, 990 02 4 33 9 6 26 E+ 00 , 1 42319684089E+01 

,21 58 762951 40Et 00 ,5123873379586*01 

,391 885600 199E-01 , 1 49835 3 4598 5E + 00 

•.116I729Q05S4E+00 , 1 1 80846343426 *00 

, 1995a 171 0655E+00 ,592869963 389F-01 

,2071676010*56+00 ,4157898854662*01 

,629890502052E*01 *,747 19i913807E*03 

,1363923679676+00 , 3543675 13420F *01 

. 15833591 9 193E+00 .43a04fl42A409E«0t 

,5403644854066*01 , 1 36639205965E*0 1 

,664 535934 l80E*0i ,212615751 168E*01 

, 74907 09097 4aE*01 ,308236*214675*01 

,21307808S037E*01 , 1 134995831 82E*01 


,S37810676924E*0t 
.741837574038E+01 
*',924550722082E«0e 
.622325167465E+00 
.118499610144E+01 
.986532310274E-01 
,l583783T0478E+00 
*,745915384661E*01 
,8'308i674l603E*01 
.229957477559E+00 
.137845316702E+00 
,519719896116E*01 
,l73l709705lbE+O0 
,1103197993016+00 
,2560507 3411 7 E-Ol 
,8649129469866*01 
,49256751 164?E*Oi 


«,276t68342829E+0i 
*,542523936220£+0l 
, 1658107 23026E+00 
, 1119230137406+01 
,1917 16801 060E+01 
*,17176154001 1E*02 
,1171124178076+00 
,1514343372276+00 
, 2 06355090 460E®0 1 
,61 13S5037 16SE*0t 
,199315929993E*0l 
,134879750«94E*0! 
,4770460 59 279E»01 
,3107455072186*01 
,793483032246E*02 
,3151822O1347E*0i 
,226344507 660E»01 



APPENDIX D 


PROGRAM FOR COMPUTING AERODYNAMIC FORCES FROM SUBSONIC 
KERNEL L-U MATRICES, GENFLU 

Program GENFLU uses the vibration mode independent L— U matrices from 
program LUCMAT, and the vibration mode information from program MPROC to 
generate the complex generalized force matrices. Normally GENFLU is 
run as a job step subsequent to the execution of LUCMAT and prior to the 
execution of program FLUTDET in the flutter analysis job stream. As the 
generalized force matrices are independent of the flow density, the general- 
ized force file should be saved for later use by FLUTDET for other density 
values . 

Program GENFLU is set up for dynamic storage. It calculates the required 
central memory field length and reduces the field length to that required for 
execution. The central memory required is 16,100g + (2*NCP + 5*NCP*NM + 
2*NM**2), where NCP = number of collocation points, and NM = number of 
vibration modes. For NCP = 36 and NM = 10, approximately 22,200g words 
are required. 

The absolute binary program is stored on the permanent file system as 
an indirect access, semiprivate file named GENFLU (the overlay file name). 
Access to GENFLU is obtained by the control card 

GET , GENFLU/UN=052061N, PW=GNFLUV1 . 

The files declared by the program are (in order) MODEF, LUF, GENF, 
and OUTPUT. File MODEF is equivalenced to TAPE7 in the program, LUF is 
equivalenced to TAPE9, and GENF is equivalenced to TAPE10. Note that there 
is no INPUT file. Program GENFLU reads from binary file LUF and coded file 
MODEF. These files contain all necessary data for the execution of GENFLU. 

The resulting aerodynamic forces are written on binary file GENF . File MODEF 
is described in the documentation of program MPROC, and file LUF is described 
in the documentation of program LUCMAT. Although LUF may contain the matrices 
for several reduced frequencies and several Mach numbers as a single binary 
file, program GENFLU writes an end-of-file mark on file GENF between Mach 
numbers. Thus the generalized forces for each Mach number on GENF can be 
selected by file manipulation, using the COPYBR control card, for execution 
of FLUTDET. File GENF is not rewound within_ program GENFLU. The OUTPUT file 
is used by GENFLU only for system error messages, 

A short program called GNFPRNT reads and lists the file GENF and serves 
to document file GENF. A listing of GNFPRNT and its OUTPUT for the sample 
case are presented in this Appendix. 


77 



Control Deck 


A typical BATCH processing control deck for executing only GENFLU is 


BGENFLU , T0200 , CMQ23000 . BLDG648 YOUR NAME 

USER, . . . (your user number/your password) 

CHARGE, ... (your account number, LRC) 


GET , LUF= S AVLUF . 

GET , MODEF= SAVMODE . 

GET , GENFLU/UN=052061N , PW-GNFLUV1 . 
GENFLU. 

SAVE , GENF= SAVGENF . 

— eoi — 

In the above example LUF and MODEF 
of LUCMAT and MPROC, respectively, 
job step in the same run as LUCMAT 
deck for this case is 


(get previously saved LUF) 

(get previously saved MODEF from 
MPROC execution) 

(save GENF file as permanent file 
named SAVGENF) 

were available from previous executions 
In many cases GENFLU is executed as a 
and SUBMAT. A BATCH processing control 


SUBGENF, T0600 , CMQ23000 . BLDG648 YOUR NAME 

USER,. . . (your user number/your password) 


CHARGE, . . . (your account number, 
GET , SUBCMAT /UN=0 5 20 61N , PW= SBCMTV1 . 
GET , LUCMAT /UN=05 20 61N , PW=LUCMTV1 . 
GET , GENFLU / UN=0 5 2 0 6 IN , PW=GNFLUV1 . 
GET,M0DEF= S AVMOD E . 

SUBCMAT. 

LUCMAT. 

SAVE,LUF=S AVLUF. 

GENFLU. 

SAVE , GENF=S AVGENF . 

— eor — 

INPUT DATA (for SUBCMAT only) 

— eoi — 


LRC.) 


(get previously saved MODEF) 


(save the LU file as a permanent file 
named SAVLUF - Caution: This can be 

a large file.) 

(save GENF as permanent file named 
SAVGENF) 
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Listing of Sample OUTPUT 


4APQ9IT, 7fl/0S/08 9 NA3A/LRC CY17S*T 


i4,13,35,6ENPLU, T0400,CM060000, 

14.13. 35,0648 RB R H bENNETT/£XT26fel 

1 4. 13 .35. USER, 053061 N, , 

14 .13. 36, CHARGE, 100652, IRC, 
14,13.36,6ET,LUFsUUF8 a 
14.13«40,GET»M0D£Fo8TPE2e 
14,13.41,GET p GENFLU/UNs0520falN,PW? 

14.13, 47 t 6ENFl r U. 

14.13.59. END GENFUU 

14.13.59, 4,640 CP SECONDS EXECUTION TIPE 
l4,t3,59 B SAVE,GENpa5eNF&, 

14.14.00, UEAD, 0.002KUNS, 

14.14.00, UEPF, Q.255KUNS, 

14.1 4 .00, UEmS, 0.945KUNS, 

14.14.00, 175 CPU SEC a UECP/5 

14. 14.00, UECP, 4,7 40SEC3 , 

14.14 . 00 , AESR , 1S.163UNT3, 


NOS 1,2 CTH) 
£9 
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Listing of Program GNFPRNT (Prints File GENF) 


PROGRAM GNFPRNT ( OUTPUT a 1Q0B, GENF ■ 10008, TAPE1Q a GENF) 
*************************#************************, 1 ,******************,,*,** 

* 

PROGRAM GNFPRNT REAUS A SINGLE BINARY FILE FROM GENF (TAPEtO) * 

GENERATED by program GENFLU AND PRINTS ITS CONTENTS ON THE * 

OUTPUT FILE, « 

* 

********* ********#**************#***, 1 ,**#*****,*#********#*************^** 
COMPLEX A (24 • 24) 

INTEGER IDA (8) j IQS (8 ) 

READ (10) IDA , IDS, EMACH, 8REF » VOLUME , NDF » NRF 

PRINT 100, IDA , IDS 

PRINT 101, EMACH 

PRINT 103, BREF, VOLUME 

PRINT 103, NDF , NRF 

DO 10 X a 1 , NRF 

READ (10) RFi ( (A(I,J), I a 1 , NDF) , J a 1 , NDF ) 

PRINT 104, RF 

PRINT 105, ( ( A ( I , J) , I o 1 , NDF) , J a 1 , NDF ) 

10 CONTINUE 

100 FORMAT (1H1 , ///* 6ENF FILE, IOA a *8A10/UX* IDS a *6A10) 

101 FORMAT (//* MACH NUMBER a*G2Q,12) 

102 FORMAT (/* BREF m*G20,12* VOLUME a*G20,12) 

103 FDRMATC//* NO, RED, FREQ, a*j4* NO, VIB, MODES a*I4) 

104 FORMAT C 1 H 1 ,//* REDUCED FREQUENCY a*G20,12/ 

A 4X*( C A ( I , J ) , I a 1 1 NDF ) , J ai,NDF) a*) 

F0RMAT(4X»2E20,12,BX,2E2Q,12) 

END 
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Listing of File GENF (OUTPUT OF GNFPRUT) 

GENF PILE, IDA a SUBSONIC KERNEL CALCULATIONS USING L»U PROGRAM » FLUT, SUPP, W . » A 
ms s measured modes for flutter suppression wing * measured amplitudes 

MACH NUMBER a ,800000000000 

9REF o 1,00000000000 VOLUME m \ .72R76773R81 

NO, RED, FREQ, a 9 NO, VIS, MODES a 10 


98 


8§ 

& >» 
tr* p 

“ o? 


X 6 NOMINAL 



» REDUCED FREQUENCY * \ 0,0000000000 

r C I a 1 » NDF) $ J ci,NOF) « 

•,24Q761389986E+O0 • , 99422 \ 2739Q9E+0 l 

,1 49593587 8748+01 •• 1 14979P93218E + 01 

o 135150231 34JE+0 l -,l95l7a64626aE+01 
, 1882509867 09E+0 l » , 1 03283805006E+0 1 
,820441 31 52«5E+00 , i 7687 1 079984E+00 

,82832424a303E+00 », 3540396027 03E+0 1 

,86801 338 2392E+00 -, 1 977853 1 4 1 37£ + 0 1 

,1492952150696+01 -,382208646364E+0Q 

,29851 7499447E+00 • , 1 31 1 1 4730784E+00 

•,8472021561716+00 •, 469561 801 U4E+00 

,73l5l56247«6E+00 -,5502629784186+01 

,2666689371 17E+00 -,220522651 32SE+01 

•,5l3648959494E+00 ,647 65340427 4E-01 

,1016362872896+01 -,1311389270346+01 

",23! 6 133B7055E+00 25 1 480989 1 25E+0 1 

, 3933542701 5gE -01 296565337 002E+Q1 

.151277074701E+01 -,2156260262116+01 

9733778757566+00 ,3283524605296+00 

-,170064821592E*0l -,8775680226656+00 

• ,4588805628055+00 -,207252993328E+0i 

,833955479322E+00 •,330239706478E*01 

,142375559470E+01 -,1561598608176+01 

,1501536200646+01 -,1773787169466+01 

-,3108549366576+01 ,1227874529306+00 

12 17266006 81 E + 01 *,3026M8i2807E + 0i 

,1634373433222+01 -,8046884300686+01 

,16471298298 0 E+01 ,6371291303886+00 

,106699387659E+01 -,5506025301686+00 

-,7472645207716+00 ,6663709295416+00 

,1041340132466+01 66493 131 1 1 19E+00 

,1651286316246+01 », 1638398054786+01 

,9420231780236+00 -,1274873268396+01 

,1081676948336+01 *, 326297 3286 1 4F + 00 

,4634977702376+00 , 103S93947328E+01 

,369671 7 567S2E+00 ,1262499553316+01 

, 2471950385686+01 *, 2716050913346+01 

-,1960833792546+01 -,1775949710506+01 

*,3276055103226+01 • , 2 1 6U392 4 q ^546+00 

,18952091 an 4n6 + n\ -,207 2234211436 + 01 
,297 37? J 4960?6 + oi -,15139994flib06 + ni 
.226 2560 4 9656F +on -,4462295117286+01 


,160741329130E+01 
, 16561 5336438E+01 
,370457485377E»01 
,22975S40S229E*01 
.134583984137E+01 
.712428970787E+00 
,1258908444306+01 
,535301 350203E+00 
,94 35384 16595E+O0 
-.669258650007E+00 
,203 42 9587 387 E+00 
,1695587 12998E +01 
•,1103251758246+01 
-,1148703002136+00 
,7494264214276+00 
*,6532600775706-01 
», 47387 9342928E+00 
,135106575101E+01 
», 11 49 4567 367 7 E+01 
•,513831 190853E+00 
,1278340937036+01 
,1583951927996+01 
•,433525994969E+01 
*,12489325D300E+0l 
,1017484564286+01 
,1526208501446+01 
,128995322310E+01 
,2324737965526+00 
,41 28203b97 336-01 
,5861622926166+00 
,1994!4348086E+0i 
,243512420249E*01 
680329460 139E+00 
,1324836492536+01 
,1996454603326*01 
,7428528932826+00 
«, 2542560026226+01 
-.104120547862E+01 
,9478178713606-01 
,38U59065564E + 01 


•,4277046883396+01 
-.190557920734E+01 
•,1671801149966+01 
•,9780096323996+00 
-.4566304701716+01 
-.215082967312E+01 
-, 6277101521096+00 
•,2325527690 17E +00 

• ,4027057 34853E+00 
•,2704702301906+01 
•,4001214312646+01 

• ,30797 335436 IE +0 i 
,1067904270536+01 

*,7612890035996+00 
•,4032188656316+01 
■,1711462758126+01 
■,2705575699656+00 
• t il743b996356E+01 
•,6447145500536+00 
■,21110269171 1E+01 
*,4364104637?9E+01 
-,88S7 36277 331 E+00 
•, 88 4063229 108E+00 
», 3625423 13492E+01 
-,49142780l542E+0l 
-,1114552076596+01 
•,2946905653456+01 
»,353250454337E+00 
.124U9771743E + 00 
•, 495281 936992E+00 
-.202816059785E+01 
•,6864534737746+00 
,1955129628776+01 
,3701303958516+00 
•.182164896296E+01 
■,824304388824E+00 
,2674871169646+00 
•,2477718633566+00 
-,4267348152946+01 
-,9311078866566+00 



REDUCED FREQUENCY a 4, 
t ! a I^nDF) 

.160373414861E+00 
.658031719776E+00 
,379i354856SB£+oo 
-.436706399968E-01 
,705498875169E+00 
,599894398255E+00 
,441 1O7B69023E+OO 
,6O087939288lE+OO 
,507S539«493jE-ni 
-.230463678817E+01 
,2504072538766' + 00 
,8477460269586+00 
,546lfe9794624E+00 
•.1011 90377030E-01 
-,}B9449fe01467£+O0 
.25045036542FE+00 
.510089132672E+00 
, 3277198995952+00 
-,182499S32873E+01 
-.508816351 125E+00 
,1414089297242+00 
,667562645338£+O0 
,2707758007532+00 
-.271755512173E+01 
*,786207960383E+00 
.97S303415153E+00 
,40767384l7b7E+00 
,661645880119F+no 
385226 224343E+00 
*, 935270071 048 E«*o 1 
,4465665l577lE+00 
.284270434288E+00 
,1165625854272+01 
,10083692?98lE+n0 
-.760609062836F+00 
,7337873430906+00 
-.2405675386396+01 
-,1622092 4 524 3E +01 
,8756219767836-01 
.566256075825E+00 
,925960237377E+00 


70568235294 
, J ol,NDF) « 
-#32738696084 ig+01 
-,53781 187O637E+O0 
-.126960159379E+00 
.152859589697E+00 
-.18685459S349E-01 
*.l219l67029aSE+0i 
-.601491842764E+00 
,3410241 14037E+OO 
-.245614672641E+00 
• e 78289l823761E+00 
-,t87404O35bl8g+01 
-,80051 6370109E+00 
,39972385051 OE +00 
«, 7 027 3 3 47 649 3E +00 
-,0064047658592+00 
-,9351293B6946E+O0 
-,8O9063569843E+OO 
,2104435466742+00 
-,3102844429285+00 
«,iS623230S968E+01 
-,i7644i27l5aiE+01 
•,4l2512680203E+00 
-,390942889O54E+OO 
-, 127266332462E+01 
-,20054039 1549E+01 
-,410980939555£+01 
*101701 67 287 OE +01 
,3475l689l5b9E+00 
,657543737629E-nl 
-,5019604101742+00 
*,8544414787052+00 
,504460901 117E -01 
.131090477942E+00 
.16733334821OE+00 
,13922?534026F+01 
-,1643291016468+01 
-.8402707017742+00 
*,167910815877E+01 
-,17083803«534E+Ol 
-.77422204817 lE+no 
198833468426E+01 



,188779936250E*00 ■ 

, 35370T457 053E+00 • 

,925372466201 E+00 - 

-.287483255323E+00 
,80836052 177 5E + 00 *> 

.434269251616E+00 - 

.475463055572E+00 - 

,1661 16989667E+00 - 

.515550126887E+00 
* e 868679b95603E+00 » 

, 2877 59926001 E+00 - 

,69036057 3237 £+00 - 

,4741764637816+00 
-,1004642242066+01 - 

,2901 75500 l 35E+00 » 

,4442217«1802E+00 * 

,3790087755776+00 • 

,4274535709556+00 « 

*,79407227 6972E+00 - 

-,1328575245766+00 « 

-,271097528272E+00 « 

,8568232651396+00 
», 4419662693656+01 - 

-,92901 1939839E+00 - 

.430127664543E+00 • 

,5262863982466+00 - 

.702249036378E+00 - 

.435787097104E+00 * 

-,7881436207216-01 « 

»,45523?926252E+00 
,6650597221536+00 * 

,18608 92 34476E+0J 
-.247835942673E+00 
«,186833712011E+00 » 

.418933248483E+00 - 

,150190885881E+00 
160960622794E+01 - 

®,12!737163792E+01 - 

,451^12499394E-01 - 

,7554959075366+00 • 


161475529638E+01 
555646000 135E+00 
732692322325E-0J 
187701638156E+00 
147919870023E+01 
609105327354E+00 
11 162347405 5E +00 
1407672S6361E+00 
256955827 190E+00 
622164927034E+00 
105456283962E+01 
210487136692E+01 
102833922636E+01 
773908302254E+00 
122728417008E+01 
518892480668E+00 
197379691770E-01 
2204282911 7 4E+00 
45689891 1283E+00 
126239570904E+01 
206191633380E+01 
292163352904E-01 
159285621940E+01 
269748021458E+01 
239332658185E+01 
261828783770E-01 
19291626589 5E +01 
173847881728E+00 
2991858083S8E+00 
34530505 1769E+00 
11 37 667228 03E+01 
8658423321 53E+0O 
819104344QB5E+00 
5851 3221 0457 E-01 
104241786273E+01 
515577764494E+00 
1 19212031322E + 01 
138253965553E+01 
21 13327 151 87E + 01 
424496622417E+00 



REDUCED FREQUENCY ■ 2,80000000000 

( (A(I,J), I a i,NOF), J a 1 1 NOF ) a 

•, 176822641751 6*01 +,1640140094496+01 

.4893U105792E + 00 ., 193981 33251 6E + 00 

,2038208346196+00 ,339796509487E*0i 

•«1 31030092 136E + 00 ,58043*34471146.01 

,3940205685606+00 ,2261278823976+00 

,2245239194095+00 *,606216803369E+00 

, 1779540 l 904JE+00 a , 1 90203S7SS6 1 6+00 
,4031468933166+00 ,431 190S98182E+00 

*, 69970 1 25684 lE.oi .,21 1857705604E+00 
*, 1449 90 22233 4E + 01 •ol0724M91586E + 01 

,2569098870432+00 •,1319740228205+01 

,4241334481 14E+00 .,2997038385296+00 

,1834358641006+00 0 323604 307 475E+00 

,6304187339726+00 .,3687634024475+00 

.,2393541833396+00 .,464767563S30E+00 

,3332449378626.01 .,5297885801736+00 

,2790801159996*00 *,5060918769116+00 

,1094834999386+00 ,2440565689286+00 

•• 1761 1354867 2E+01 98544? 1 406 48E+00 

.,1877619089106+00 .,1083098620786*01 

,4498136485616+00 .,9323553770996+00 

,2136476290696 + 00 , 321 3626070 1 8E + 0 1 

,4133746621906+00 .,6676905210306*00 

",1936088959786+01 .,123045361 091 E+01 
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APPENDIX E 


PARAMETRIC FLUTTER EIGENVALUE PROGRAM, FLUTDET 

Program FLUTDET reads the unsteady aerodynamic forces and calculates 
the flutter speed at a particular Mach number for several densities or 
altitudes using a conventional V-g type of analysis. Although designed to 
interface directly with program GENFLU, which calculates unsteady aerodynamic 
forces from subsonic kernel L-U matrices, other compatible sources may be 
used. The aerodynamic forces are input for a few selected values of reduced 
frequency and are interpolated by FLUTDET for additional, closely-spaced 
values. The flutter characteristics are calculated, and V-g plots are 
generated for each density. 

The program is overlayed to reduce the central memory field length 
requirements. It is dimensioned for 16 vibration modes and requires 
approximately 32,000g words of central memory for execution. 

The absolute binary program is stored on the permanent file system 
as an indirect access, semiprivate file named FLUTDET (the overlay file 
name) . Access to FLUTDET is obtained by the control card 

GET , FLUTDET /UN= 0 5 20 6 IN , PW=FLTDT VI . 

The files declared by the program are (in order) INPUT, GENF, OUTPUT, 
FLSCH, TAPE4, and TAPE7. GENF is equivalenced to TAPE3 within the program, 
and FLSCH is equivalenced to TAPE8. TAPE4 is an internal disk file used to 
store the interpolated aerodynamic forces. FLSCH is an internal disk scratch 
file used during interpolation of the aerodynamic forces. TAPE7 is an 
internal disk file used to store the eigenvalues for the plotting overlay. 

In addition to the files declared for the program card, subroutine PSEUDO 
declares a file named SAVPLT which contains the plot vector file for subse- 
quent post-processing for the desired plotter. File GENF is a binary 
(unformatted) file that contains the unsteady aerodynamic forces and is 
described in the section documenting program GENFLU. 

The plots generated by FLUTDET for the sample case are presented in 
figure 4. 
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Control Deck 


A typical BATCH processing control deck for executing only FLUTDET 
for one Mach number is 

BFLUTDT,T0600,CM060000. BLDG648 YOUR NAME 

USER, . . . (your user number/ your password) 

CHARGE, . . . (your account number, LRC) 

GET,GENF=SAVGENF. (get previously saved GENF) 

GET , FLUTDET/UN=052061N, PW=FLTDTV1 . 

FLUTDET. 

ATTACH, PLOT/UN=LIBEARY. (get plotting pose processor) 

PLOT .VARIAN 
EXIT. 

ATTACH, PLOT/UN=LIBRARY. (or other desired error 

— eor — - processing) 

INPUT DATA FOR FLUTDET 
— eoi — 

File GENF is a multx-file if several Mach numbers are run with a 
single execution of SUBCMAT. A sample control deck for the second Mach 
number is 

BFLUTDT,T0600,CM060000. BLDG648 YOUR NAME 

USER, . . . (your user number, your password) 

CHARGE, . . . (your account number, LRC) 

GET , GENF=SAVGENF . (get previously saved GENF) 

COPYBR, GENF , GF1 . 

COPYBR , GENF , GF2 . 

REWIND, GF1,GF2 

GET , FLUTDET /-UN= 0 5 20 6 IN , PW=FLTDT VI . 

FLUTDET,, GF2. 

ATTACH , PLOT /UN=LIBRARY , 

PLOT. VARIAN 
EXIT. 

ATTACH, PLOT/UN=LIBRARY. 

PLOT. VARIAN 
— eor — 

INPUT DATA for 2nd Mach number 
— eoi — 

In the above examples GENF was available from previous executions of 
GENFLU. In some cases FLUTDET will be executed as a job step in the same run 
as SUBCMAT, LUCMAT, and GENFLU. A BATCH processing control deck for this 
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case is 


SUBFLTR, T1000 , CM060000 . BLDG. 648 YOUR NAME 

USER, . . . (your user number/your password') 

CHARGE, . . . (-your account number, LRC.) 

GET , SUBCMAT'/UN=05 2061N , PW=SBCMTV1 . 

GET ,LUCMAT/UN=052061N,PW=LUCMTV1 . 

GET , GENFLU/UN=0 5 20 61N, PW=GNELUV1 . 

GET , FLUTDET/UN=052061N, PW=FLTDTVl . 

GET , M0DEF= SAVMODE . 

SUBCMAT . 

LUCMAT . 

SAVE , LUF=SAVLUF . 

GENFLU. 

SAVE , GENF=SAVGENF . 

REWIND, GENF. 

FLUTDET . 

ATTACH, PLOT/UN=LIBRARY . 

PLOT -VARIAN 
EXIT. 

A TTACH , PLOT/UN=LIBRARY 
PLOT. VARIAN 
— eor — 

INPUT DATA (for SUBCMAT only) 

— eor — 

INPUT DATA (for FLUTDET only) 

— eoi — 

In this example the L-U file and the generalized force fi-le (GENF) are 
saved for future restart capability with different vibration modes or flutter 
parameters. For this case, program MPROC has been previously executed to 
generate file MODEF. 


(get previously saveddMODEF) 


(save .the LU file as a ‘permanent 
file named SAVLUF) 

'(save 'GENF as ^permanent file 
named SAVGENF) 


Description of the Flutter Determinant 
The flutter equation solved by the program is 

n 


r 2 2 

[<0 - 0 ) 


i (1 + ig + ig)]M q + 2 A q. = 0„ 

± j=l J 


i = 1 (l)n 


( 1 ) 


where 


to is the frequency of vibration (radians/sec) 

to^ is the frequency of the ith natural vibration mode (radians/sec) 

g i is the modal damping coefficient in the ith natural vibration 
mode (dimensionless) 
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g is the incremental damping, a parameter introduced by the program 
so that linear eigenvalue techniques can be used (dimensionless) 

M. is the generalized mass associated with the ith natural mode 
(kilograms) 

q. is the component of the ith natural mode in the flutter eigenvector 
(meters) 

A. . is the generalized aerodynamic force resulting from the pressure 
1- ^ induced by the jth mode acting through the displacements of the 
ith mode (Newtons/meter) 

n is the number of vibration modes 

The dimensional quantities above are given in metric units; however, any 
consistent set of units may be used. 

The quantities and A^. are defined by integrals 

M i = // w m(x,y)h?(x,y)dxdy 

A_ = /.M^Cx.yjAp.. (x,y)dxdy (2) 


where 

m(x,y) is the mass per unit area (kilograms/square meter) 
h^(x,y) is the deflection in the ith mode (dimensionless) 
x,y are cartesian coordinates (meters) 

W is the lifting surface (or half of the lifting surface if the loading 
is symmetric or antisymmetric. However, it must be the same for both 
integrals.) 

Ap.(x,y) is the difference in pressure between the upper and lower surfaces 
J resulting from the downwash by the jth dimensionless natural mode 

(newtons per square meter per meter of displacement, i.e., 
newtons/cubic meter) 

Equation (1) is in physical units. However, most unsteady aerodynamic 
programs will generate dimensionless generalized aerodynamic forces. 
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Let 


b Ap. (x,y) 

A.. = ff h.(x,y) — — 

11 w i i b b 

J =SPV o o 


where 


( , b 0 A P^ x >y^ dx dy 

h.(x,y), ^2 b~’ ^ b 

%pV o o 


are all dimensionless and 

b Q - reference length, meters, usually root semichord 

3 

p = air density, k/m 
V = velocity, m/s 


- Then 



Jspv b A. . 
o ij 


and noting that 


( 3 ) 


(1 + ig ± + ig) ~ (1 + ig i ) (1 + ig) 
as g^ or g -*■ 0, one may write equation (1) as 


[7 0)b v 2 /w.b \ 

[(— v 2 ) - \v) a + ig i )(1 + ig) 


n b^ A., A 

o i.i q = 0 

q i + * — W. 2 

3 = 1 i 


oib. 


Noting that = k, the reduced frequency, and letting 

2 


Q 


/u> b , 

Gr ) 


(1 + ig) 


( 4 ) 


where the reference frequency, 0 ) o , is usually taken to be the modal frequency, 
0 )^, of the mode that the user estimates to be nearest the flutter frequency > 
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one then obtains 


where 


n 


Z (C.. 

J-l 13 


6., •&)<}. = 0 i = l(l)n 
ij J 


C. . 



1 

(1 + ig^) 


V M± 


+ 



(5) 


( 6 ) 


‘ Equation (5), above, is solved by a matrix eigenvalue routine. The 
results, ft, are presented as plots of incremental damping, g, versus flutter 
speed index, F, where 


F = 


V 

0) b vV 
o o 


The mass ratio, y, is given by 


M 

o 


vb^p 

o 


where M q is any convenient reference mass and is usually 


(7) 


M q = // w m(x,y)dxdy (8) 

the mass of the lifting surface, and where v is a dimensionless reference 
volume usually given by 


v = / IT b 2 (y)dy 

b^ span 


(9) 


but can be set to 1.0 if desired. In equation (9), span is the full or 
semispan consistent with W, usually the semispan. 
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Data Setup 


Program FLUID ET reads the flutter parameters from the INPUT file and 
the aerodynamic forces from binary file GENE. The INPUT file, will be 
described and followed by a brief- description of GENT (which has been 
described in the document of program GENFLU) . 


Description of the INPUT file .- The INPUT: file consists of a case 
identification card followed by several variables read in a NAMELIST format. 
The single case identification card is read into an 8-word array, IDFL, 
in an 8A10 format. The NAMELIST name is NAME1. Note that some of the 
variables are preset to default values and need not be read unless values 
other than default are desired. 


The variables in NAME1 , their definitions and their default values , 
if any, are as follows. 


IGAIN 


the. gain of the interpolation formula. The A^'s from GENF 

are interpolated versus k such that there are IGAIN-1 
Interpolated values between every adjacent pair of 

from GENF. Default = 20, maximum = 40, minimum = 2 


ij 


ITER the number of Laguerre iterations used in solving for the 

eigenvalues from equation 5. If ITER is too small, discontinui- 
ties will appear on the V-g plots. 

Default = 1.0 


BREF reference length, b 

Default = 1.0 


VOLUME ‘the dimensionless volume, v (see equation 9). If omitted, the 
value read, from GENF will be used. If included, the value read 
by the NAMELIST overrides the value read from GENF. 

No Default 


NMP number of vibration modes to be processed. If NMP - 0, it is 

set to NDF. This parameter permits the use of only the first 
NMP. modes from the input files. 

Default = 0, maximum = NDF 

(GMASS (I) , 1=1, NMP) the generalized mass array (M. is defined by 

equation 2) , 

Default = 16*1.0 


REFMASS the reference mass used in the calculation of mass ratio and 
flutter speed index (see equations 7-8). If REEMASS = 0, it 
is set to 4.*GMASS(1). 

Default = 1.0 
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(FREQ (I) , I=1,NMP) 


NEM 

MPS 

REFFREQ 

(G(l) , 1=1 
NA 

f 

(ALT (I), I 
(CONV(I), 


array of modal vibration frequencies (to^ in equation 6) 

Ascending order is recommended. Zero values (rigid 
body modes) must precede all nonzero values. 

No default values 

unused parameter 

parameter for unimplemented option. Must be .FALSE. 

Default = .F . 

reference frequency (to in equation 6). If REFFREQ = 0., it is 
set to the third nonzero value of FREQ. 

Default =1.0 

, NMP) array of modal damping coefficients (g. in equation 6). 
Default — 16*0.0. 1 

number of altitudes or density values to be calculated. 

Default = 1, maximum = 40 

=1,NA) array of altitudes or densities. If C0NV(2) = 0, ALT(I) 
is the density value. If C0NV(2) ^ 0, the ALT(I) is the 
geometric altitude in physical units (usually meters). 

Default is ALT(l) =0. (sea level) and ALT (2) through 
ALT (10) "the discontinuities of the temperature scale in 
meters; ALT (11) - ALT (40) are not defaulted . 


1=1,4) a four-word array of unit conversion factors, CONV(l) is 

a multiplicative factor that converts the user's generalized 
aerodynamic forces to the A^'s °f equation 3. That is 

A.. = C0NV(1)*A. . • Default = 1.0. 

lj ij»u 

C0NV(2) is the factor by which the values of ALT(l) must 
be divided to give the altitude in feet for entry into 
the standard atmosphere subroutine, AT62. If C0NV(2) - 0, 
ALT(I) is taken to be the value of density. 

Default = 0.3048 • 

C0NV(3) is the factor by which the density output from the 
atmospheric subroutine in slugs/ft^ must be multiplied to 
give a density (p) consistent with the units of b and M 

in equation 6. If C0NV(2) = 0, then C0NV(3) applies to the 
value of density supplied in ALT(I) . 

Default = 515.379 


99 



C0NV(4) is the factor by which the speed of sound output 
from the atmospheric subroutine in ft/sec must be multiplied 
to give units consistent with b Q . 

Default = 0.3048 

Examples: If b Q is in meters and WL is in kilograms, 

default values for C0NV(2) through C0NV(4) should be used. 

If b is in feet and is in slugs, C0NV(2) through 

C0NV(4) should be set to l.Q. 

The following six NAMELIST parameters are used for scaling the g vs V 
(flutter speed index) plot. 

GMIN the minimum value of g (incremental damping) to be plotted. 

Default =0.7 

GMAX the maximum value of g to be plotted. 

Default = 0.3 

YSPAN the 1'ength of the Y (or g) axis of the plot in inches. 

Default =10.0 

FMIN the minimum value of F (flutter speed index) to be plotted. 

Default = 0., minimum =0.0 

FMAX the maximum value of F to be plotted. 

Default =3.0 

XSPAN the length of the x (or F) axis in inches. 

Default =15.0 


GTK. and FTK are unused parameters. 


Description of file GENF .- The aerodynamic force file GENF consists of 
a single binary file of NRF + 1 records. The first record contains 21 words: 
(IDA(I) ,1=1,8) , (IDS(I) ,1=1,8) , EM, BREF, VOLUME, NDF, NRF, where IDA is the aero- 
dynamic identification card (passed from SUBCMAT) , IDS is the structural 
mode identification card (passed from MPROC), EM is the Mach number, VOLUME 
is the dimensionless reference volume, NDF is number of vibration modes, and 
NRF is the number of reduced frequencies. The next NRF records contain 
1+2*NDF**2 words, RF, ((A(I, J) ,1=1, NDF) , J=1,NDF) where RF is the reduced 


frequency k and A(I,J) is the complex for the value of RF. The 


reduced frequencies' RF must be monotonic (monotonically decreasing preferred). 
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Program Limits 


The limits on the various integer input quantities are summarized 

below 


IGAIN 

2 

through 40 

ITER 

1 

or more 

NA 

1 

through 40 

NDF 

1 

through 16 

NK 

3 

or more 

NMP 

1 

through NDF 


Program Output 

Program FLUTDET prints the flutter results on the OUTPUT file. The 
plot vector file for the V-g plots is placed in file SAVPLT (declared by 
subroutine PSEUDO) for later postprocessing. 

The OUTPUT file contains the heading information followed by a reflec- 
tion of the input data. The flutter results for each altitude are listed 
in order of decreasing reduced frequency. The column labeled mode refers 
to the branch of the V-g curve in essentially the order of the modes at 
the highest value of k. The headings for the velocities is listed as 
meters/sec but will be in the units the user employs. The units for altitude 
are listed as meters but are those appropriate for altitude, except that the 

density is listed if C0NV(2) = 0.0 (density values supplied by the user). 

The quantities DG/DRF and DFSI/DG are the derivatives dg/dk and dF/dk 
determined by differencing. They provide the user an indication of the 
slope of the flutter crossing without reference to the plots. The scales 
on the V-g plots are not labeled and should be chosen to permit easy scaling 

with a ruler (1 unit per inch of plot, etc.). The value for altitude 

listed on the plot is also density if C0NV(2) = 0. 

Divergence calculations are made with FLUTDET providing the aerodynamics 
are given for k = 0, since the eigenvalue problem has been formulated such 
that it is valid for k = 0. However, the interpolation for the divergence 
crossings is erratic and the divergence results may or may not be printed as 
a flutter crossing of essentially zero value of k (this situation can be 
alleviated, however, by setting to a small negative value such as -.001). 
The divergence condition will appear on the V-g plot as a branch of the plot 
that approaches the g = 0 line as k approaches zero. 
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Listing of Sample INPUT Data 


FLUTTER CHECK RUN FOR NOMINAL CASE U8INS 8UBCMAT WITH CONVERSION FACTOR INCLUOED 
SNAME1 REFFREQa 97 ,953 , FREO 1 1) P46 ,935 » 97 ,955 , (44 ,827 , 1 SO ,629 , 240 ,06 1 , 
272.062,288.147,302,935,364.865, 

GMASS (1)0,10529,, 03349,. 07298, .04934,, 12916, .05619, ,02405, , 17267, ,09901 , 
REFMASSa 1.862, 

CQNV(2)aO,, 1 # ,0.,l6A!Na40,,BREFsa # 89208, 

FMAXa 1,0, X8PAN»lO . , GMlNpo.5, 8MAXa,3, Y8PANB8 , , 

NMPa9 , 

NA S 6 , ALT ( 1) ® ,005000, ,003851, ,002369, ,001795, .001020, ,000500# 
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Listing of Sample OUTPUT 


KKHWMWMHMWKWMWMWMWMWMWMWMWMWMWMWMWMWM*MWHWMWMWMtaHWMHMWMWMWhwMHMWMWMWMWMWMWMWMWMWMWMHMWMRMNMwMNMWMKMWNWMWMWMWMWMHMWMWMNHWMHHWK 

NMWMWMWMWMHMWMWMWMWMWMWMHMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMHMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMHMWMHMWMWHWMWHWHWMWMWMWHWMWMWMW 

MNMWMNHNKWMWMWMWMWHWMWMwMNMWMWMNMWMWMWMWMwMWMWMWMKMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWHWMWMWMWMNMWMHHWHHMI'IH 

HMWMHMWMHMwMRMKMwMWMMMWnWMWMWMWMNMWMWMKMWMwMwMwMwMwMWMwMWMWMWMWMWMWMWMWHWMNMWMWMWMWNWMWMWMWMWMWMWMWMWMWMWMHMWMWMWMWMWHKMhMNMK 


FLUTTER EIGENVALUE PROGRAM f VERSION i,0 


78/05/00, 13.07,*!. 


SUBSONIC KERNEL CALCULATIONS USING L*U PROGRAM * FLuT, SUPP. W , - b X fa NOMINAL 
MEASURED MODES FOR FLUTTER SUPPRESSION WING «• MEASURED AMPLITUDES 
FLUTTER CHECK RUN FOR NOMINAL CASE USING SUBCMAT WITH CONVERSION FACTOR INCLUDED 

MACH a .6000000 BREF = 2,892080 VOLUME * 1,724788 NOF » 9 NKF = 10 


Snare 1 

IGAIN a 90, 

ITER a I, 

BREF a , 28930SE + 0 t , 

VOLUME = ,172978773980bS£*0l, 

NMP s 9, 

GMASS = a 10S<39F + ()i,, . 3 }49E«0 1 , ,T29bE-0i, ,9V34t*01, ,1291b£+00, .5619E-01, 

, l E A 0 l , ,1^+01, * l F * 0 1 , , 1 1 1 0 1 » , 1 1 + 0 l , , i t + 0 l , 

REFl-'ASa = .lM'iti'n, 

FREJ a . Ufe9 < Jp. + Oir , , ° -j aF ♦ Orf , . ) 7i *'< < , . I '-up <■’ «r » ( 4, , 

, 569H* 5 'it+ , l , l , |, t , ] . t , j , 



.2«U5fc*0l, ,172<>7ttD0# .9901E-01, .1E + D1, 


/U'Kio 1 > + ■> « , 


dUObit *0 5, , ?«8 I 9 J t + 03, ,3U2S35t*U3, 
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NEH 

a 

0, 








UPS 

■ 

F » 








REFFREQ a 

, 97 9S5E+02 , 








G 

c 

o * o r 0.0, 0. 

0, 0.0, 0, 

Of 0 . 0 f O.Of 0. 

0, 0,0, 0,0, 0,0, 

0,0, 0 

,0, 0,0, 0.0, 0,0, 



NA 

3 









ALT 

■ 

.5E-02, ,38516-02, ,3569e-02, ,17936-02, ,102t-Q2, .36-03, 0. 

0, 0,0, 0.0, 0.0, 0,0, 0,0, 

0,0, 0,0, 0,0, 




Q * 0 r 0*0, 0 ^ 

Or OfO, 0 • 0 , 0.0, 0*0* 0* 

0, 0,0, 0,0, 0,0, 

0,0, 0 

,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

0,0, 0,0, 0,0, 




0 ■ 0 , 0 , 0 f Of 

0, 0,0, 







CQNV 

9 

, 1E+01 , 0.0, 

, 1 E + Ol , 0 

,0, 






GMIN 

a 

• ,3E+QG , 








GHAX 

IB 

, 3E+0Q , 








yspan 

a 

, 8E*0 1 , 








GTK 

a 

. 16*00, 








FMIN 

a 

0,0, 








fmax 

a 

ftE+01, 








X3PAN 

* 

.ie+02, 








FTK 

5 

,te*oi, 








SEND 












REDUCED 

FLUTTER 

frequency flutter speed air 

6P6ED 


altitude 

PASS 

MQOE 

frequency speed Index 

CRAOIAnS/SEC) (METEwS/StC) (METERS/SEC) 

DG/DHF DFSJ/DG 

IMETEHS) 

RATIO 


7 

1.23550 

,706365 

256,146 

599,533 


I -.,428332 1,46257 

.5000006-02 

8, 92572 . 


9 

1 .20526 

,882206 

31 1,170 

746,670 


I -,120303 4,47980 

,5000006-02 

6,92572 


6 

1,16252 

,061439 

299,075 

746,020 


I - , 203 7 OBE-0 1 37,5920 

, 500000E-02 

8,92572 


9 

1,09030 

,944443 

301,348 

799.345 


I ,674531 -1,02779 

.500000E-02 

8,92572 


b 

1,07147 

,353808 

174,282 

470,417 


I ,403224 ,936618 

.500000E-02 

8,92572 


6 

1,00491 

,994897 

242.586 

842,047 


I ,481446 -1,43327 

,5000006-02 

8,92572 


2 

.63040S 

,302608 

73,5393 

236,118 


I -1,66442 ,160291 

•500000E-02 

6,92572 


b 

,495065 

, 9 3 1 6 y 5 

134.971 

706,474 


I ,782600 -,806924 

,5000006-02 

8,92572 


5 

,423643 

1.50173 

186,103 

1271 .02 


I -7,40140 , 7 645696-01 

,5000006-02 

8 ,92572 


9 

.356364 

2,05909 

299,648 

24)9,64 


I -,2745uoE-01 293,970 

.500000E-02 

8.92572 


6 

,260946 

3,06436 

251,948 

2593.57 


I -4,50225 1,92025 

, 500000E-02 

8,92572 


9 

,213103 

4,77375 

297,713 

4040,34 


I ,135/ 96E-0 1 -1655,57 

.500000E-02 

8,92572 


7 

.197726 

2,47633 

145,293 

2095,86 


1 -6,79726 -.7153571 

• 500000E *02 

8,92572 


a 

■ 173678 

4,44546 

225.949 

3762.49 


I , 6 23U5 1 t-Q 1 -245,359 

,5000006-02 

8,92572 


s 

,117476 

5,83958 

200,751 

4942.W 


1 • , 833949E-0 1 347,430 

.3000006-02 

8,92372 


b 

, /U2069E-08 

7.32311 

,1590386-04 

6198.04 


I .240909 7,96362 

,5000006-02 

8,92572 


7 

,2329025-06 

3,77639 

a 3937 l £E i 

. -r 1 i 


I 1.774/4 -2.01655 

• bOO00OE-O2 

6,923/2 



,1«6621E»1« 

,6 4*10 7 9 

#£7*>7^bfc,T 1 d 

645,4/ J 


I -1,64466 17 J639t’-01 

,5000006-02 

8,92372 


b 

,u«43u7fc-i 5 

1,74074 

*«>2f>5b3fc -10 

1473,3) 


I ,527360 -,241611 

,5000006-02 

6,92572 
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9 

1 , 14865 

,027098 

316.005 

797,653 

I 

-.111329 

5,08311 

,3851006-02 

11,5888 


7 

1 ,12486 

,684631 

256 , fi 09 

660, 2S6 

1 

-,502104 

1 .24739 

,3051006-02 

11,5808 


8 

t .06897 

,841377 

299.910 

011. 423 

I 

-,159950fc-ol 

44,3917 

,3851006-02 

11,5888 


6 

1.02378 

,524028 

178.900 

505.372 

1 

-.440209 

,860061 

,3851006-02 

11,5888 


9 

,964072 

,940040 

302,205 

906,574 

1 

,517469 

-1 ,40172 

,3851006-02 

11,5888 


a 

,890446 

,993922 

295,125 

950,537 

I 

,482343 

•1,79242 

,3851006-02 

11,5886 


2 

,743810 

,295061 

73.3832 

285,326 

1 

-2,09639 

.138633 

,3851008-02 

11,5888 


6 

.4310B9 

.940127 

135,145 

906,658 

I 

,848279 

-.864206 

,3851006-02 

11,5886 


5 

,373458 

1,50026 

186, 036 

1446,95 

I 

-7,20289 

-.206139 

,3851006-02 

11,5868 


9 

,31500b 

2,85453 

299.046 

2752.90 

1 

-.286162E-01 

319,047 

,3051006-02 

11,3888 


a 

,247980 

3,05072 

252,270 

2942,11 

I 

-5,87286 

2,12662 

,3851006-02 

11,5888 


9 

.187582 

4,75960 

297.721 

4590,15 

I 

, 1 105626-01 

-2261,42 

.3651006-02 

11,5868 


7 

,174144 

2.47313 

143.616 

2385,09 

1 

-10,3313 

796158 

,3851006-02 

11,5886 


8 

,150814 

4,48297 

225,451 

4323,37 

I 

,7448956-01 

•312,320 

,3egiQ0E-C2 

11 ,5688 


a 

,103837 

5,81632 

201,395 

5609.25 

: 

-, 0071506-01 

403,922 

,3851006-02 

11,5886 


a 

,1508996-07 

7,32311 

,368491£-04 

7062,40 

i 

,241694 

10,6297 

,3851006-02 

1 1,5686 


7 

,5196246-08 

5,77639 

,1000906-04 

5570,75 

i 

1,78112 

•2.66241 

,3851006-02 

11,5688 


6 

, 9651306-14 

,645079 

,5703186-12 

622,113 

i 

— t ,84466 

«, 1787666-01 

,3851006-02 

11,3688 


S 

,1429956-13 

1,74074 

,8300456-1 1 

1678,77 

i 

,527397 

-.245479 

,3851006-02 

11,3806 


9 

1 ,07003 

,743109 

324,636 

877,432 

i 

-.111800 

5.20523 

,2569006-02 

17,3720 


7 

,951302 

,667443 

239,351 

700,089 

i 

i»,5o3l08 

1,17422 

,25b90u£-02 

17,3720 


b 

.934106 

,462031 

184, VS8 

370,107 

i 

■» , 5460b7 

,696426 

,2569006-02 

17,3720 


a 

,923921 

.795377 

300,026 

939,149 

i 

-,1278186-01 

67,1821 

,2569006-02 

17,3720 


9 

,704447 

,946040 

302,967 

1117,05 

i 

,540116 

•1,82842 

,2569006-02 

17,1720 


a 

,713465 

1 ,01645 

296,664 

1202,55 

i 

,460368 

*2,76894 

,2569006-02 

17,1720 

p o 

a 

,630464 

.200563 

73,0904 

340 , 733 

i 

-2,91093 

,9637446-01 

,2569006-02 

17,3720 

td 

6 

,34836ft 

.950965 

135,255 

1 122,86 

i 

,929424 

-, 962251 

•256900E-02 

17,3720 


3 

.306405 

1,50026 

167,676 

1771,45 

i 

-11,0561 

-.3695926-01 

,2569006-02 

17,3720 

O tf 

9 

.258159 

2,64485 

299,846 

3399,08 

i 

-,2750636-01 

404,461 

,2569006-02 

17,3720 

& $ 

a 

,203755 

3,03400 

252,464 

3583,4b 

i 

-7,21470 

1,39193 

,2569006-02 

17,3720 

& t 

9 

,153613 

4,74694 

297,711 

3605,00 

i 

, 1287 026-01 

•2397,37 

,2569006-02 

17,3720 

JO ^ 

7 

,142392 

2,46926 

144,054 

2915,60 

i 

-11,3487 

• 1 ,09595 

,2569006-03 

17,3720 

p £ 

8 

,121375 

4,53542 

224,749 

5355,24 

i 

.6595956-01 

•438,394 

,2569006-02 

17,3720 


a 

,8560166-01 

5,78521 

202,166 

6030,94 

i 

7482206-01 

534,989 

,2569006-02 

17,3720 

E £ 

a 

,4164956-07 

7.12311 

,1245256-03 

0648,84 

i 

,24333b 

16,2796 

,25b9u0c»02 

17,3720 

M ™ 

7 

.1783586*07 

5,77639 

,4206305-04 

6820,53 

i 

1,78634 

-4,05464 

,2569006-02 

17,3720 

S & 

6 

,6265166-14 

,645079 

,1630055-11 

761,683 

i 

-1 ,844bb 

-,1099016-01 

,2369006-02 

17,3720 


5 

.333772E-14 

1.74074 

,2386335-11 

2055,40 

i 

■ ,52 7479 

-, 253875 

,2569006-02 

17,3720 


9 

,992536 

,601249 

330,250 

96 2 , 3 1 S 

i 

-.111049 

5,36137 

,1795006-02 

24,8627 


6 

.836182 

,457890 

197.009 

646,803 

i 

9,654399 

,587469 

,1793006-02 

24,8627 


7 

.810941 

,861345 

261,950 

934,199 

i 

-,54986b 

1 ,31098 

,17 95006-02 

24,8627 


8 

.799102 

,76695b 

300,127 

1086.21 

i 

1122336-01 

85,4241 

.1795006-02 

24,8627 


9 

,645049 

,964027 

303,726 

1361,7b 

i 

,4b«018 

-2.75329 

,1795006-02 

24,8627 


a 

,575656 

1,05783 

297.428 
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Figure 1. - Overall block diagram of 
flutter analysis. 
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Figure 3. - Plots for sample case generated by MPROC. 
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Figure 3. - Continued. 
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MODE 2 OBLIQUE PROJECTION 


Figure 3. - Continued. 
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Figure 3. - Continued. 
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MODE 3 OBLIQUE PROJECTION 


Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. 


Continued. 
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OBUIQUE PROJECTION 


Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 
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Figure 3. - Continued. 



i UNINTERPOLATED INPUT DATA 

Figure 3. - Concluded. 




INCREMENTAL DAMPING 



FLUTTER SPEED INDEX 

(b) Density = .003851. 
Figure 4-. - Continued. 
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FLUTTER SPEED INDEX 

(c) Density = .002569. 
Figure 4. - Continued. 
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FLUTTER SPEED INDEX 


(d) Densi ty = .00X795, 


Figure 4-. - Continued. 
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FLUTTER SPEED INDEX 

(e) Density = .001020. 
Figure 4. - Continued. 





( f ) Dens i ty = .000500 . 
Figure 4. - Concluded, 
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